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PREFACE 


This  volume  is  the  fifth  of  six  volumes  that  describe  the  LMI  Sortie- 
Generation  Model  System.  Volume  I,  Executive  Summary,  discusses  the  problem 
the  system  is  designed  to  address  and  provides  an  overview  of  the  principal 
parts  of  the  system.  Volume  II,  Sortie-Generation  Model  User's  Guide,  pro¬ 
vides  sufficient  information  to  allow  a  user  to  run  the  Sortie-Generation 
Model  (SGM).  Volume  III,  Sortie-Generation  Model  Analyst's  Manual,  describes 
the  mathematical  structures,  derivations,  assumptions ,  limitations,  and  data 
sources  of  the  SGM  at  a  very  detailed  level.  Volume  IV,  Sortie-Generation 
Model  Programmer's  Manual,  specifies  the  details  of  the  computer  programs, 
file  structures,  job  control  language,  and  operating  environment  of  the  SGM. 
Volume  V  describes  the  maintenance  subsystem  and  explains  the  construction  of 
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the  maintenance  input  file  to  the  SGM.  Volume  VI  describes  the  spares  sub¬ 
system  and  shows  a  user  how  to  build  the  spares  file  that  is  used  by  the  SGM. 

Potential  users  are  cautioned  that  no  volume  is  intended  to  provide,  by 
itself,  all  of  the  information  needed  for  a  comprehensive  understanding  of  the 


operation  of  the  SGM. 
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MAINTENANCE  SUBSYSTEM  DESCRIPTION 


INTRODUCTION 

The  maintenance  subsystem  estimates  the  maintenance  manpower  and  per¬ 
formance  input  parameters  for  the  queuing  model  that  is  embedded  in  the 
Sortie-Generation  Model  (SGM)  System.  This  subsystem  estimates  the  failure 
rate,  service  rate,  and  number  of  servers  for  each  work  center  in  a  mainte¬ 
nance  organization. 

Estimation  of  the  queuing  model's  input  parameters  is  difficult  because 
of  the  manner  in  which  Air  Force  maintenance  data  are  collected.  Maintenance 
data  collection  in  the  Air  Force  is  job-oriented,  hence,  task-oriented.* 
Using  this  orientation,  the  Air  Force  maintains  records  of  all  work  expended 
against  the  aircraft  and  all  of  its  components. 

The  orientation  of  the  SGM  is  directed  towards  unscheduled  on-aircraft 
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maintenance  in  the  work  center(s).  The  maintenance  subsystem  consists  of  a 
set  of  software  that  estimates:  (1)  the  probability  that  unscheduled  on- 
aircraft  maintenance  is  required  prior  to  further  flight,  (2)  the  time  to 
complete  all  jobs  (each  job  represents  a  collection  of  related  tasks)  that 
must  be  completed  by  a  work  center  prior  to  further  flight,  and  (3)  the  number 
of  maintenance  teams  (servers)  available.  In  effect,  the  software  system 

*A  job  is  a  collection  of  maintenance  tasks  possessing  the  same  job 
control  number. 
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A  work  center,  for  our  purposes,  is  a  collection  of  individuals  with  the 
same  skill  type.  For  example,  the  fuel  shop  is  a  work  center  although  the 
aircraft  flight  in  the  Aircraft  Generation  Squadron  is  not,  even  though  it  has 
a  single  work  center  code.  However,  the  individuals  in  that  aircraft  flight 
possessing  the  same  skill  type  are  a  work  center. 


developed  by  LMI  "translates'*  the  Air  Force's  task  data  into  the  LMI  work 
center  data. 

Construction  of  the  SGM  maintenance  input  files  is  a  five-step  process 
based  on  an  LMI-modified  version  of  the  Common  Data  Extraction  Programs 
(CDEP) .  CDEP  was  developed  by  the  Air  Force  Maintenance,  Supply,  and 
Munitions  Management  Engineering  Team  (AFMSMET)  at  Wright-Patterson  Air  Force 
Base  to  help  generate  data  bases  for  the  Logistics  Composite  Model  (LCOM)  in  a 
standardized  fashion.  The  applicable  CDEP  programs  are  listed  and  discussed 
in  detail  in  later  sections.  The  basic  data  processing  sequence  is  shown  in 
Figure  1.  Each  step  is  described  below: 

Step  1:  Request  the  base  level  data.  Some  of  these  data  must  be  ob¬ 
tained  from  the  individual  bases  and  some  are  available  from 
centralized  locations. 

Step  2:  Convert  the  maintenance  history  tapes.  This  step  changes  the 
format  of  the  history  tapes  obtained  from  the  bases  in  Step  1 
to  one  that  is  compatible  with  the  Honeywell  System. 

Step  3:  Find  all  work  centers  or  Air  Force  specialty  codes  (AFSCs) 
reported  on  the  history  tapes.  This  provides  a  check  on  the 
base  level  organization.  The  work  center  listing  also  serves 
as  an  excellent  aid  in  determining  the  work  centers  to  use  in 
the  work-center-to-AFSC  mappings  (used  in  the  Common  Data 
Extraction  Programs  and  discussed  later). 

Step  4:  Extract  unscheduled  on-aircraft  maintenance  records  and  esti¬ 
mate  the  off-equipment  manhours  per  sortie.  This  step  actually 
consists  of  running  the  Common  Data  Extraction  and  data  analy¬ 
sis  programs  several  times.  Different  work-center-to-AFSC 
mappings  are  used  until  a  set  that  properly  represents  unsched¬ 
uled  on-aircraft  maintenance  can  be  determined. 

Step  5:  Create  the  SGM  maintenance  input  file.  By  running  a  JCL 
stream,  several  programs  are  executed  that  manipulate  the 
records  extracted  in  Step  4.  The  SGM  inputs  are  computed  and 
made  immediately  available  through  this  manipulation. 

The  remainder  of  this  chapter  provides  a  detailed  description  of  the  five 
steps. 
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REQUEST  OATA 


STEP  2 


STEP  3 


STEP  4 


STEP  5 


BASE  LEVEL 

•  FLYING  HOURS 

•  SORTIES 

•  MAINTENANCE  HISTORY  TAPES 

•  MAINTENANCE  OPERATING 

INSTRUCTION 

•  POSSESSED  AIRCRAFT 


OTHER 

•  UNIT  MANNING 
DOCUMENT 


•  PROGRAMMING  DOCUMENT 


FIGURE  1  SGM  MANPOWER  DATA  PROCESSING  SEQUENCE 


DETAILED  SYSTEM  DESCRIPTION 
Request  Base-Level  Data 

The  first  step  in  production  of  the  Maintenance  data  bases  is  to 
request  the  basic  data  froa  the  Air  Force.  This  request  is  made  via  the  Air 
Staff  (LEXY)  to  the  Major  cowands  (HAJCOtls),  who  then  direct  the  bases  to 
forward  the  required  data.  Two  data  elements  can  be  obtained  froa  a  central 
source. 

Data  obtained  froa  the  individual  bases  are  the:  aircraft  flying 
hours,  nuaber  of  sorties,  nuaber  of  possessed  aircraft,  aain  enance  operating 
instruction  (KOI),  and  a  six-month  Maintenance  history  tape  (ABD6DA  tape). 
The  unit  aanning  and  USAF  Prograa  Documents  are  obtained  froa  centralized 
sources  in  the  Pentagon.  Each  of  the  data  elements  are  discussed  below  in 
greater  detail. 

Aircraft  Flying  Hours.  Aircraft  flying  hours  are  the  number  of 
hours  flown  by  the  specified  aircraft  type  at  the  specified  base  during  the 
time  period  covered  by  the  Maintenance  data.  They  are  used  to  compute  the 
average  sortie  length  for  testing  the  SCSI  and  its  data  bases. 

Nuaber  of  Sorties.  The  nuaber  of  sorties  is  the  nuaber  of  sorties 
flown  during  the  time  period  to  which  the  maintenance  data  apply.  This  number 
is  used  with  flying  hours  to  estimate  the  average  sortie  length,  and  with  the 
maintenance  data  to  estimate  several  SCSI  maintenance  input  variables. 

Base  Level  History  Tape  (A3D6DA)  Description.  In  order  to  develop 
the  sortie-generation  model  inputs,  maintenance  data  must  be  collected  and 
analyzed  froa  each  base.  These  data  are  a  primary  input  to  CDEP.  A  maximum 
of  two  years'  worth  of  data  can  be  obtained. 
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Base  maintenance  actions  are  documented  on  the  Maintenance  Data 


Collection  Record  (AFTO  Form  349).  These  forms  are  transcribed  onto  a  mainte¬ 
nance  history  tape  that  compiles  six  months  of  data  for  all  aircraft  on  the 
base.  Copies  of  the  AFTO  Form  349  and  the  maintenance  data  collection  tape- 
record  layout  are  shown  in  Figures  2  and  3. 

The  raw  maintenance  data  are  a  detailed  description  (documentation) 
of  the  work  performed.  Of  the  data  contained  on  the  AFTO  Form  349  we  require 
the  Job  Control  Number,  Work  Center,  MDS  (model,  design,  and  series),  Type  of 
Maintenance,  Action  Taken  Code,  When  Discovered  Code,  How  Malfunction  Code, 
Start  and  Stop  Times,  and  the  Crew  Size.  These  data  elements  correspond  to 
positions  1,2,4,A,C,D,E,F,H,I,  and  J,  respectively.  These  data  elements  (and 
others)  are  then  transferred  to  the  tape.  Using  the  history  tape, 
work-center-specific  data  are  extracted  by  CDEP. 

Maintenance  Operating  Instruction  (MOI).  The  MOI  is  a  base  level 
instruction  which  specifies  the  maintenance  organization's  structure.  The  MOI 
also  lists  work  centers  and  the  Air  Force  Specialty  Codes  (AFSCs)  assigned  to 
each  work  center;  in  effect,  the  MOI  describes  the  relationships  between  work 
centers  and  AFSCs.  There  are  two  fundamentally  different  base  maintenance 
organizational  structures  in  the  Air  Force:  Combat  Oriented  Maintenance 
Organization  (COMO)  and  non-COMO.  Portions  of  the  MOI  for  the  4th  Tactical 
Fighter  Wing  (TFW)  stationed  at  Seymour  Johnson  AFB  (COMO)  and  the  48th  TFW 
stationed  at  Lakenheath  AB,  England  (non-COMO)  are  shown  in  Figures  4  and  5. 
It's  readily  apparent  from  the  MOIs  that  the  two  base  maintenance  concepts  and 
organizational  structures  are  different.  The  different  maintenance  concepts 
are  briefly  explained  in  Appendix  K.  The  MOI  is  used  in  co  function  with  the 
unit  manning  document  (UMD)  to  determine  the  number  of  individuals  assigned  to 
a  work  center. 
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FIGURE  3  MAINTENANCE  DATA  COLLECTION  SYSTEM  RECORO  LAYOUT 
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Environmental  Systems 

ENVI 

4R370 

Non-Destructive  Inspecticn 

NDIN 

4RS00 

FMEL  Brandi 

FUEL 

4R900 

Aircrew  Training  Devices 

A3EB 

FIGURE  4.  SEYMOUR  JOHNSON  MOI  (CONT’D) 
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48TFV  HOI  66-5,  Attachment  1,  4  March  1980 


WORK  CgKTER/HSEHOHlC  COnPR 
**  Deputy  Commander  tor  Maintenance  Staff  Function* 


function 


WORK  CENTER 


Deputy  Commander  for  Maintenance 
Maintenance  Management  Division 
Analysis  Branch 
Production  Analysis 
Deficiency  Analysis 
Training  Management  Branch 
Development  and  Applications 
Records  and  Requirements 
Administration  Branch 
Programs  and  Mobility 
Quality  Control 
Inspection 
FCF 

Maintenance  Control 
Files  Maintenance 
Job  Control 
Plans  and  Scheduling 
Documentation 
Materiel  Control 
Production  Control 


B1000 

S191M 

B1010 

B1011 

81012 

B1020 

B1021 

B1022 

B1030 

B10A0 

BU00 

B1110 

B1170 

31200 

B1205 

B1210 

B1220 

B1223 

31230 

B1231 


— *  4S  Organization  Maintenance  Squadron 


MTEMOKIC 

DCM0 

ANA: 

ANAL 

DEFA 

LGMT 


ADHS 

PROG 

Q0AL 

INS? 

QFCF 

COST 

FILM 

J0BC 

PLKS 

DOCM 

MATC 

PROD 


FUNCTION 


OMS  Management 
OMS  Supervision 
Crew  Chief  University 
Blue  Branch  Supervision 
Blue  Section 

Yellow  Branch  Supervision 
Yellow  Section 
Red  Branch  Supervision 
Red  Section 

Green  Branch  Supervision 
Green  Section 

Inspection  Branch  Supervision 
Phase  Dock  1 
Phase  Dock  2 
Phase  Dock  3 

Support  Branch  Supervision 
Equipment  Section 
Tank  Farm/780  Section 
Alert  Force  Branch 
Transient  Maintenance 

3*  45  Field  Maintenance  Squadron 

FCNCTIOH 


FMS  Management 
FMS  Supervision 
Fabrication  Branch 
Machine  Shop 
Hetd  Processing 
Structural  Repair 
Corrosion  Control 
Parachute  Shop 
Non  Destructive  Inspection 
Propulsion  Branch 
Son-Powered  AGE 
Material  Support 
Accessory  Repair 
Flightline  Dispatch 
Jet  Engine 
Test  Ceil 


WORK  CENTER  DEMONIC 


£2000 

B2001 

£2002 

32110 

B2112 

S2120 

B2121 

B2130 

B2131 

B2140 

B2141 

B2200 

B2211 

B2212 

E2213 

B2300 

32301 

B2320 

£2400 

B2520 


C0MS 

OSOP 

OKSU 

BL3R 

BLUE 

YEBR 

YELL 

REBR 

REDD 

GRBR 

GREN 

INBR 

PHD1 

PHD2 

PHDS 

SPBK 

EQSC 

T780 

VCTK 

TRAN 


WORK  CENTER 


MNEMONIC 


B3000 

B3001 

S3100 

53110 

B3120 

B3130 

B3140 

B3151 

B3170 

B320C 

53230 

B3231 

33232 

B3233 

B3234 

33236 


CFKS 

FSCP 

FABR 

MACH 

WELD 

SMIL 

C0RR 

PARA 

NDIS 

PRBR 

TFNP 

TTMS 

TFAS 

TFFL 

TF30 

TFTC 


FIGURE  5.  LAKENHEATH  MOI 
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A-1-2 


MOI  66-5,  Attachment  1 ,  4  Mar  30 


FUNCTION 

Aerospace  System  Branch 

Repair  4  Reclamation/Wheel  4  Tire 
Fuel  Shop 
WRM  Tank  Fare 
Electric  Shop 
Pneudraulic  Shop 
Environmental  Systems 
Egress  Shop 
AGE  Supervision 

AGE  Repair/Inspection 
AGE  Servicing 
AGE  Pickup/Delivery 

Son-Powered  ACE 

4.  43  Avionics  Maintenance  Squadron 

FUNCTION 

AMS  Management 
AMS  Supervision 
Pave  Tack  Flightline 
Foto 

Avionics  Analysis 

Avionics  Fligntline  Branch  and  Tool  Crib 
AMS  Yellow  Section 

Automatic  Fit  Control 
Boas  Nav 

Conn  Nav/Pen  Aids 
AMS  Green  Section 

Automatic  Fit  Control 
Bomb  Nav 

-  Comm  Nav/Pen  Aids 
AMS  Blue  Section 

Automatic  Fit  Control 
Bomb  Nav 

Com  Nav/Pen  Aids 
AMS  Red  Section 

Automatic  Fit  Control 
Bomb  Nav 

Com  Nav/Pen  Aids 
PMEl  Branch 
PMEl  lab 

'On  Site  Calibration 
Field  Calibration  Unit 
Avionics  Shop  Maint  Branch 
Auto  Test  Station 
Manual  Test  Station 
Pen  Aids  Test  Station 
Pave  Tack  T«*c  Station 
Air  Tra Inina  Devices  Branch 
Air  Training  Devices 

5.  4a  Munitions  Maintenance  Branch 
FUNCTION 

Munitions  Management 
AFK  Supply 

loading  Standardization 
Munitions  Services  Branch 

Alternate  Mission  Equipment 
Weapons  loading 
Sculthorpe  Support 
Weapons  Release 
Gun  Services 

Maintenance  and  Storage  Supervision 
WR  Maintenance 
Storage  and  Handling 
Storage  4  Handling  (Mildenhall) 
Munitions  Maintenance  Conventional 
Inspection 

Equipment  Maintenance 


WORK  CENTER 

DEMONIC 

83300 

AR3R 

B3310 

REPR 

B3320 

fuel 

33321 

URKT 

33330 

ELEC 

33340 

HYOR 

33360 

ENVR 

B3390 

ESRS 

83400 

AG8R 

83410 

AGER 

83420 

AGES 

83425 

AGEP 

B3430 

SPAC 

WORK  CENTER 

MNEMONIC 

S4000 

CAMS 

34001 

ASUP 

34350 

PAVF 

84340 

FOTO 

B4002 

AAML 

841 00 

AVFL 

341 OY 

YELA 

8420Y 

YAFC 

3436Y 

YWCS 

B437Y 

YCNY 

341 OG 

GRNA 

B420G 

GAFC 

B436G 

GUCS 

8437G 

GCNY 

84108 

SL'JA 

3420P 

BAFC 

34368 

sues 

34378 

8CMY 

841  OR 

RE3A 

S420R 

RAFC 

3426R 

RWCS 

3437R 

RCNY 

8450) 

PMBR 

B4S01 

PMEL 

B4502 

B«03 

34600 

ASBR 

B4620 

ASXA 

34630 

ASXB 

B4631 

PATS 

84660 

PAVT 

84900 

TRN8 

34901 

TRNO 

WORK  CENTER 

MNEMONIC 

35000 

CMMS 

35001 

AFKS 

35003 

STND 

35100 

SVBR 

85101 

AfCX 

35110 

ICAO 

B5115 

sen 

B512C 

REIS 

85130 

GUNS 

B5200 

55210 

NUCM 

35220 

STOR 

85221 

STOM 

35230 

CONV 

85250 

CHEK 

85500 

MAGE 

FIGURE  5.  LAKENHEATH  MOI  (CONT'Dl 
II 


Possessed  Aircraft.  Possessed  aircraft  are  the  number  of  aircraft 
possessed  by  the  wing  (or  squadron).  Possessed  aircraft  are  compered  to  the 
Primary  Authorized  Aircraft  (PAA)  strength  obtained  from  the  USAF  Program 
Document  (discussed  later) .  Comparing  the  two  figures  provides  a  check  on  the 
PAA  strength. 

Unit  Manning  Document.  The  UMD  lists  the  personnel  authorizations 
for  each  Air  Force  base.  Current  and  future  authorizations  are  available. 
Future  authorizations  are  subject  to  considerable  uncertainty  because  of 
uncertainty  in  Air  Force  funding  levels,  aircraft  procurement  quantities,  and 
aircraft  locations. 

For  the  maintenance  wing  the  UMD  lists,  according  to  the  organi¬ 
zational  structure,  each  AFSC  and  the  number  of  authorized  positions  of  that 
AFSC.  A  portion  of  the  UMD  for  Seymour  Johnson  AFB  is  shown  in  Figure  6. 

USAF  Programming  Document  (PD).  Contained  in  the  PD  is  the  world¬ 
wide  distribution  of  aircraft.  Specifically,  the  PD  gives  current  and  future 
authorized  PAA  strengths  by  model,  design,  and  series  (MDS)  for  each  base. 
The  aircrafts'  owning  commands  are  also  specified. 

The  PD  is  used  to  determine  the  bases  of  interest  and  the  PAA 
strength  at  those  bases.  Included  in  the  active  forces  are  aircraft  assigned 
to  TAC,  PACAF,  USAFE,  and  the  AAC. 

Convert  Base-level  Tapes 

Arrival  of  the  maintenance  history  tapes  takes  several  weeks  to 
several  months.  Two  to  three  tapes  are  normally  received  from  each  base; 
however,  they  are  in  a  format  (Burroughs)  which  can  not  be  used  on  the 
computer  system  (Honeywell) .  A  standard  system  software  package,  ZATIFOj 
solves  this  problem  by  converting  the  Burroughs  format  to  Honeywell  System 
Standard  format. 
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UNCLASSIFIED 


Conversion  of  the  tapes  is  a  three-step  process  that  keeps  track  of 
the  number  of  records  (and  blocks)  on  the  input  and  output  reels.  This  in¬ 
sures  that  no  records  are  lost.  JCL  and  run  instructions  for  the  three  system 
routines  are  listed  in  Appendix  A.  A  detailed  flowchart  of  the  conversion 
process  is  shown  in  Figure  7 ;  it  should  be  referred  to  during  the  following 
discussion. 

The  first  step  of  the  conversion  process  counts  the  number  of  blocks 
on  each  input  reel.  The  system  routine,  PHYSKIP,  performs  this  task.  A 
sample  output  of  this  routine  for  the  three  reels  of  tape  received  from 
Seymour  Johnson  AFB  is  shown  in  Figure  8.  The  tapes  from  Seymour  Johnson 
contain  25,593  blocks  (10,752,  10,618,  and  4,223).  Each  block  contains  ten 
records,  except  for  the  last  block  on  the  third  reel  which  contains  between 
one  and  ten  records.  Multiplying  the  block  count  by  ten  gives  the  number  of 
records  (within  nine)  on  the  tapes. 

Step  two  converts  the  input  reels  to  the  Honeywell  format,  counts 
the  number  of  records  converted,  and  prints  the  first  100  records  of  the  new 
tape.  The  system  routine,  ZAT1FO,  performs  these  tasks. 

A  sample  ZAT1F0  run  for  the  three  Seymour  Johnson  tapes  is  shown  in 
Figure  9.  Comparison  with  the  record  count  from  the  PHYSKIP  shows  a  differ¬ 
ence  of  two  records  (255,930  for  the  SKIP  versus  255,928  for  the  ZAT).  The 
difference  occurs  because  the  last  block  of  the  third  tape  contains  only  eight 
records.  This  indicates  that  all  records  on  the  tapes  were  successfully 
converted.  Another  indication  that  the  ZAT  functioned  correctly  may  be  in¬ 
ferred  from  the  beginning  and  ending  labels  that  are  printed  from  each  reel  of 
tape.  There  are  six  labels  for  the  Seymour  Johnson  tapes;  they  are  also  shown 
in  Figure  9. 
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FIGURE  7.  CONVERT  BASE -LEVEL  TAPES 
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FIGURE  8.  SEYMOUR  JOHNSON  PHY SKIPS 
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FIGURE  9.  SAMPLE  ZAT1F0  OUTPUT 


SNUMB  -  2636U,  ACTIVITY  »  -  01 ,  REPORT  CODE  -  74,  RECORD  COUNT  -  000105 


Occasionally  a  bad  block  is  encountered;  i.e.,  a  block  that  cannot 
be  converted  into  the  Honeywell  format.  The  block  number (s)  is  printed  when 
this  occurs.  If  fewer  than  five  bad  blocks  are  encountered  during  conversion 
it  usually  is  not  worth  re-running  the  ZAT.  Computation  of  the  number  of 
records  that  should  have  been  converted  is  done  by  subtracting  ten  from  the 
total  record  count  (from  the  PHYSKIP)  for  each  bad  block.  The  new  total  can 
then  be  compared  with  the  number  of  records  converted  by  ZAT1F0. 

Step  three  checks  the  output  tapes  of  ZAT1F0  by  printing  the  first 
100  records,  skipping  through  the  output  reels,  and  printing  the  total  number 
of  records  on  the  output  reels.  This  total  should  agree  with  the  total  number 
of  records  converted  by  ZAT1F0.  If  not,  the  dump  and  conversion  should  be 
re-run. 

Find  All  Work  Centers 

Before  work  center  data  can  be  extracted  from  the  maintenance 
history  tape  an  accurate  determination  must  be  made  of  the  work  centers 
against  which  work  has  been  charged.  These  work  centers  and  their  respective 
AFSCs  should  be  listed  on  the  HOI;  however,  changes  in  the  HOI  occur  over  time 
and  sometimes  it  is  in  error.  Determination  of  the  work  centers  actually  used 
requires  running  two  CDEP  programs  using  a  special  set  of  CDEP  instructions 
(for  the  first  program).  The  processing  sequence  for  finding  all  work  centers 
is  shown  in  Figure  10. 

The  two  CDEP  programs  used  to  find  all  work  centers  listed  on  the 
history  tapes  are  the  SELECTION  and  SELECTION  REPORTS  programs.  The  Selection 
program  selects  or  rejects  records  from  the  maintenance  history  tape  based  on 
user-supplied  instructions.  Rejected  records  are  given  a  "reject  reason  code" 
which  is  analyzed  in  the  Selection  Reports  Program,  (hie  of  these  reason  codes 
is  for  work  centers  not  included  in  the  acceptable  list.  By  having  an  empty 
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acceptable  work  center  list  all  records  are  rejected  for  this  reason  and 
appear  on  the  "SB"  report  (Reporting  Work  Centers  Not  Found  in  Work-Center- 
to-AFSC  List) .  The  special  CDEP  instructions  and  a  sample  "SB"  report  for 
Seymour  Johnson  AFB  are  shown  in  Figures  11  and  12;  JCL  for  running  these  pro¬ 
grams  are  in  Appendix  B. 
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1000  REPORT  GROUP, TITLE, FIND  ALL  WCS 

1010  SORTIES, 16862 

1020  REPORT, C2 

1030  SRD, AFT 

1040  UDC,  A 

1050  REPORT, C2 

1060  SRD, XFH 

1070  WDC,A 

1080  REPORT, C4 

1090  SRD, AFT, XFH 

1100  UDC, A 

1110  WORKCENTERS  TO  AFSC3 
1120  DUMMY, DUMMY 
1130  END 

1140  REPORT, SC, SUPPRESS, REPORT 


FIGURE  11.  CDEP  INSTRUCTIONS  TO  REJECT  ALL  WORKCENTERS  (OR  AFSCs) 


Examination  of  the  "SB"  report  shows  each  reporting  work  center  on 
the  maintenance  history  tape  and  the  number  of  manhours  and  units  of  work 
reported  against  it.  Using  this  report  gives  one  some  intuition  about  the 
error  in  recording  the  work  center  code  and  for  the  proper  work  center  to 
include  in  the  acceptable  set  (discussed  in  a  later  section) . 

Procedures  for  documenting  maintenance  for  work  centers  in  the 
aircraft  generation  squadron  (AGS)  have  been  recently  changed.  This  change 
significantly  affects  our  selection  and  analysis  of  a  base's  maintenance  data. 
Prior  to  the  change,  each  skill  type  (AFSC)  in  the  AGS,  in  each  aircraft 
maintenance  unit,  had  its  own  work  center  code.  Individualized  work  center 
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coding  in  the  AGS  allowed  easy  selection  of  work  based  on  the  skill  (WC-AFSC 

combination)  of  the  individual.  The  new  data  processing  procedures  record  one 

work  center  type  for  flight-line  maintenance  regardless  of  skill  type; 

fortunately,  the  AFSC  is  recorded  elsewhere  on  the  maintenance  record. 

We  move  the  AFSC  back  into  the  work  center  position  by  creating  a 

new  maintenance  history  tape  in  order  to  continue  using  CDEP  without  making 

3 

extensive  modifications.  Th'*  Selection  and  Selection  Reports  programs  which 
do  this  are  listed  in  Appendix  G.  The  FORTRAN  program  that  moves  the  AFSCs 
back  into  the  work  center  position  for  the  flight  line  work  center  codes  is 
listed  in  Appendix  B  along  with  its  JCL  and  running  instructions. 

Extract  Records  and  Determine  Off-Equipment  Requirements 

The  Common  Data  Extraction  Programs  ar°  used  to  extract  maintenance 
data  from  the  six-month  maintenance  history  tape.  Data  extraction  is  governed 
by  user-specified  "CDEP  directives."  These  directives,  through  specification 
of  the  aircraft  type(s),  engine  type(s),  type(s)  of  maintenance,  when  dis¬ 
covered  code(s),  and  relevant  work  centers,  dictate  the  records  selected  by 
CDEP  for  later  processing.  A  different  set  of  directives  must  be  constructed 
for  each  base  -  aircraft  type  (MDS)  combination;  however,  the  primary  differ¬ 
ence  among  directives  is  the  set  of  acceptable  work  centers. 

Because  the  SGM’s  focus  is  on  unscheduled  on-aircraft  maintenance, 
the  maintenance  data  for  work  centers  performing  this  type  of  work  must  be 
extracted  from  the  history  tape.  However,  this  set  of  work  centers  is  not 
known  when  the  directives  are  initially  constructed.  A  five-step  approach  to 
determining  the  work  centers  that  perform  unscheduled  on-aircraft  maintenance 

_ 

CDEP  is  being  modified  by  the  Air  Force  Management  Engineering  Team  to 
allow  record  selection  based  on  work-center-AFSC  combinations.  This  CDEP 
modification  will  eliminate  the  need  for  creating  a  new  history  tape  with  the 
work  center  codes  replaced  by  the  performing  AFSC. 
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is  outlined  below;  This  approach  enables  us  to  make  a  "best  guess"  at  the 
unscheduled  on-aircraft  work  center  list,  check  it,  and  estimate  the  off- 
equipment  maintenance  requirements  in  two  CDEP  runs.  It  is  usually  possible 
to  get  the  "best-guess"  list  right  on  the  first  try  with  a  little  bit  of 
experience.  All  processing  is  done  by  running  a  single  JCL  stream.  This  JCL 
and  a  sample  run  for  Seymour  Johnson  AFB  are  shown  in  Appendix  B.  The  reader 
should  refer  to  Figure  13  to  follow  the  processing  sequence. 

The  five  steps  are: 

1.  Construct  best-guess  directives, 

2.  Construct  all-inclusive  directives, 

3.  Construct  off-equipment  work  center  lists, 

4.  Hun  CDEP  (twice)  and  the  maintenance  analyzer,  and 

5.  Modify  step  one  directives,  if  necessary. 

An  output  tape  from  step  one  is  used  as  input  to  SMAI.LJCL  (the 
program  that  generates  SGM  manpower  inputs)  after  the  final  best-guess 
directives  have  been  determined. 

Step  1:  Construct  Best-Guess  Directives.  Users  of  CDEP  build  base- 
specific  directives  to  select  unscheduled  on-aircraft  maintenance.  These 
directives  specify  the  record  types  (maintenance  actions)  to  extract  from  the 
maintenance  history  tapes.  Described  in  this  section  are  the  procedures  for 
building  the  best-guess  set  of  directives;  an  example  best  guess  for  Seymour 
Johnson  AFB  is  shown  in  Figure  14. 

The  CDEP  selection  program  directives  consist  of  two  sections  de¬ 
lineated  by  their  frequency  of  change;  that  is,  the  work-center-to-AFSC 
mapping  (lines  170-810)  changes  completely  for  each  base,  while  lines  100-160 
are  fairly  standard.  lines  100-160  specify  the  base,  number  of  sorties,  CDEP 
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— WEAPONS  CONTROL 

550 

321B2, 321X2, 

335 

SPEC 

FLT 

"B" 

— WEAPONS  CONTROL 

560 

32102,321X2, 

336 

SPEC- 

FLT 

tt  “■  I* 

— WEAPONS  CONTROL 

570 

404 A 1,404X1, 

SPEC 

FLT 

"A" 

— PHOTO 

5S0 

40481,404X1, 

SPEC 

FLT 

"B" 

—PHOTO 

590 

404C1 ; 404 X i t 

■:-oa 

SPEC 

FLT 

II  p  Ii 

— PHOTO 
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610  322B2, 404X1,  335  SPEC  FLT  "S" — SENSOR (322X2  FUNC  COMB  W  404 

620  32202,404X1,  336  SPEC  FLT  "C" — SENSOR (322X2  FUNC  COMB  W  404 

630  427A5, 427X5,  334  SPEC  FLT  "A" — STRUCTURAL  REPAIR 

640  42785,427X5,  335  SPEC  FLT  “B" — STRUCTURAI  REPAIR 

650  427C5, 427X5,  336  SPEC  FLT  "C“ — STRUCTURAL  REPAIR 

660  40131,462X0,  334  WEAPONS  FLT 

670  40132,462X0,  335  WEAPONS  FLT 

680  40133,462X0,  336  WEAPONS  FLT 

690  4R1 10, 328X0,  COMM/NAV — 328X1 

700  4R120, 325X0,  AFCS/INSTR — 325X1 

710  4R130, 323X4,  INERTIAL  NAVIGATION 

720  4R1 40, 404X1,  PHOTO 

730  4R1 50, 404X1,  SENSOR (322X2  FUNC  COMB  W  404X1) 

740  4R 1 60 ,423X0,  ELECTRICAL 

750  4R170, 32SR3,  ELECTRONIC  COUNTER  MEASURES 

760  4R 1 SO ,321X2,  WCS 

770  4R320, 427X5,  STRUCTURAL  REPAIR 

780  4R340, 427 RO,  MACHINE  SHOP 

790  4R350, 423X4,  PNEUDRAULICS 

800  4R360 , 423X 1 ,  ENV I RONMENTAL 

810  END 

-* 
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report  type,  aircraft  type,  acceptable  when-discovered  codes  (WDCs),  accept¬ 
able  labor  categories,  and  acceptable  maintenance  types.  The  WDCs,  category- 
of-labor  codes,  and  type-maintenance  codes  in  lines  140,  150,  and  160  direct 
CDEP  to  select  unscheduled  maintenance  actions.  When  these  codes  are  combined 
with  report  code  C2  (line  120),  which  specifies  on-equipment  maintenance,  CDEP 
selects  unscheduled,  on-equipment  maintenance  actions.  Lines  120,  140,  150 
and  160  are  never  changed,  regardless  of  the  base  or  aircraft  type.  This 
combination  of  directives  reflects  one  representation  of  maintenance  in  a 
surge  environment. 

Lines  100  and  110  identify  the  base  and  the  number  of  sorties  flown 
during  the  time  period  to  which  the  maintenance  data  apply.  The  standard 
reporting  designator  (SRD),  AFT,  in  line  130  tells  CDEP  to  select  maintenance 

4 

charged  against  the  F-4E.  These  lines  (100,  110,  and  130)  are  changed  for 
each  base  and/or  aircraft  type. 

Each  base  has  a  unique  organizational  structure;  however,  the  organ¬ 
izational  structures  are  based  on  the  combat-oriented  maintenance  organization 
(COMO)  or  the  standard  base  maintenance  organization.  Within  either  type  of 
maintenance  organization  the  kinds  of  work  centers  which  perform  or  would 
perform  unscheduled  on-aircraft  maintenance  in  a  surge  is  relatively  stable. 
There  are  differences  among  bases  in  the  implementation  of  the  two  basic 
structures  depending  on  mission,  but  the  major  difference  among  bases  is  in 
the  labeling  or  work  center  code  assigned  to  a  group  of  individuals  who  per¬ 
form  a  specified  function.  The  purpose  of  the  base-specific  work-center-to- 
AFSC  mappings  is  to  list  the  work  center  codes  and  relate  them  to  a  common 
AFSC  or  function.  This  use  of  the  work- center- to-AFSC  mappings  allows  us  to 

_ 

SRDs  are  system  unique  reporting  codes  and  can  be  found  in  Technical 
Order  00-20-2,  The  Maintenance  Data  Collection  System. 
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select  the  types  of  work  centers  we  want  and  to  assign  standard  names,  via  the 
AFSC,  to  common  functions  which  have  been  assigned  base-unique  work  center 
codes. 

Determination  of  the  best-guess  set  of  work  centers  is  largely  based 
on  past  experience,  knowledge  of  the  type  of  work  generally  performed  by 
different  work  centers,  the  maintenance  operating  instruction,  and  the  CDEP 
selection  reports  program,  "Report  SB".  The  MOX  and  "Report  SB"  are  used  to 
determine  the  base’s  work  center  labeling  scheme;  "Report  SB"  serves  as  a 
check  on  the  MO  I .  The  work  centers  in  the  specialist  flight  and  aircraft 
flight  in  the  AGS;  fuels,  repair  and  reclamation,  and  egress  in  the  EMS; 
comunications/navigation,  automatic  flight  control/instruments  systems, 
inertial  navigation,  photo,  sensor,  electrical,  electronic  counter-measures, 
weapons  control,  structural  repair,  machine  shop,  pneudraulics,  and  environ¬ 
mental  shop  generally  make  up  the  best-guess  list  of  work  centers  (for  the 
F-4).  This  list  of  work  centers  is  checked  in  step  four  by  a  data  analysis 
program  which  examines  all  F-4  maintenance  records  and  categorizes  them  into 
acceptable  (meeting  the  on-aircraft  unscheduled  maintenance  criteria)  or 
unacceptable  states.  Examination  of  the  data  analysis  results  provides  a  check 
on  the  best-guess  list  of  acceptable  work  centers. 

The  best-guess  mapping  used  for  Seymour  Johnson  AFB  is  shown  in 
lines  180-800  of  Figure  14.  Three  columns,  after  the  line  numbers,  make  up 
the  mapping.  Colian  one  is  the  work  center  code  indicated  on  the  MOI ,  except 
for  the  specialist  flight  which  is  discussed  later.  The  second  column  is  the 
AFSC  that  the  work  center  is  mapped  into;  that  is,  all  work  recorded  against 
the  work  center  is  now  counted  and  analyzed  as  if  it  were  recorded  against  the 
AFSC.  Column  three  is  the  name  of  the  AFSC. 
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The  work  centers  listed  in  column  one  are  generally  those  listed  on 
the  MOI.  However,  a  recent  base  level  reporting  change  provides  for  recording 
a  single  work  center  code  for  all  skill  types  in  the  specialist  flight. 
Different  work  center  codes  are  used  to  differentiate  the  specialist  flights 
within  the  AGS. 

Differentiation  of  the  AFSCs  in  each  specialist  flight  is  accom- 

✓ 

plished  by  modifying  the  history  tape  prior  to  running  CEE?  with  the  best- 
guess  list  of  work  centers.  The  preprocessing  step  replaces  the  work  center 
code  used  to  indicate  a  specialist  flight  with  the  AFSC  of  the  individual  in 
the  specialist  flight.  An  alphabetic  code  (A,B,C,.  .  . )  is  placed  in  the 
fourth  position  of  the  AFSC  (normally  used  to  identify  the  individual's  skill 
level)  to  differentiate  among  the  flights.  For  example,  the  334th  Specialist 
Flight  at  Seymour  Johnson  AFB  has  a  work  center  code  of  4G121.  This  code  has 
been  replaced  on  the  tape  fed  to  CDEP  with  the  AFSCs  with  an  "A"  in  the  fourth 
position.  These  AFSCs  are  in  lines  270*680  in  Figure  14  and  are  labelled  in 
column  three  as  belonging  to  the  334th.  It  is  important  to  differentiate 
among  the  specialist  flights  because  they  occasionally  work  on  different  types 
of  aircraft. 

Work  centers  other  than  those  in  the  AGS  perform  unscheduled  on- 
aircraft  maintenance.  In  some  cases  this  type  of  maintenance  is  a  primary 
function;  in  others,  the  non-AGS  work  centers  provide  support  to  the  AGS  when 
needed.  In  order  to  represent  properly  on-aircraft  maintenance  requirements 
for  a  specific  skill,  it  is  necessary  to  capture  the  unscheduled  on-aircraft 
maintenance  performed  by  the  shops. 

The  work-center- to-AFSC  mapping  is  used  to  select  aon-AGS  work 
centers  and  nap  them  to  an  AFSC  based  on  their  primary  functi*-  .  as  outlined 
above.  In  the  first  case,  the  non-AGS  work  center  is  represented  by  its  AFSC 
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with  an  E  or  R  in  the  fourth  position.  The  "E"  or  "R'*  indicates  that  the  AFSC 
(work  center)  belongs  to  the  EMS  or  CRS,  respectively. 


If  the  shop  work  center  provides  unscheduled  on-aircraft  support  to 
the  AGS  when  necessary,  this  work  is  counted  under  the  corresponding  AGS  AFSC. 
This  is  done  by  sapping  the  shop  work  center  into  the  AGS  AFSC.  An  MXr'  is 
used  in  the  fourth  position  of  the  AFSC  for  these  work  centers  and  for  the 
corresponding  AGS  AFSCs. 

Inclusion  of  work  performed  by  non-AGS  personnel  with  work  performed 
in  the  AGS  affects  the  number  of  people  considered  available  to  do  unscheduled 
on-aircraft  maintenance.  This  is  especially  true  in  the  event  of  a  deploy¬ 
ment.  Our  approach  to  dealing  with  this  issue  is  discussed  later  in  detail. 

Another  problem  arises  because  of  the  inconsistency  between  AFSCs  in 
two  CRS  work  centers  and  the  corresponding  AFSCs  in  the  AGS.  In  particular, 
the  325X0/X1  and  328X0/X1  AFSCs  in  the  CRS  are  each  counted  as  one  work  center 
whereas  the  four  AFSCs  are  separately  identified  in  the  AGS.  Because  the 
325X0/X1  and  328X0/X1  AFSCs  are  each  combined  into  one  work  center  it  is 
impossible  to  determine  the  amount  of  work  done  by  the  individual  AFSCs. 
Being  unable  to  discern  the  difference  between  work  performed  by  a  323X0  or 
325X1  AFSC  in  the  CRS  forces  us  to  combine  them  in  the  AGS.  The  CRS  work 
center  is  then  mapped  into  the  pooled  AGS  AFSCs.  Such  a  combination  is  shown 
in  lines  480-530  and  line  700  in  Figure  14.  The  328X0  and  328X1  AFSCs  are 
combined  in  a  similar  fashion  in  lines  390-440  and  line  690  in  Figure  14. 

Ho  difficulties  are  caused  by  combining  the  similar  AFSCs  because 
(1)  the  type  of  work  they  do  is  almost  the  same,  (2)  a  great  deal  of  cross¬ 
utilization  occurs  between  the  combined  AFSCs,  and  (3)  there  are  indications 
that  the  Air  Force  will  soon  be  combining  the  AFSCs  anyway.  Thus ,  from  a 
practical  standpoint  the  AFSCs  are  the  same. 
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Step  2;  Construct  All-Inclusive  Directives.  The  best-guess  set  of 
work  centers  must  be  checked  to  insure  that  all  work  centers  that  perform  or 
would  perform  unscheduled  on-aircraft  maintenance  in  a  surge  environment  have 
been  included.  Checking  the  best-guess  work  centers  is  done  by  constructing  a 
set  of  CDEP  directives  that  includes  all  possible  work  centers  and  all  un¬ 
scheduled  maintenance.  Using  an  output  tape  from  CDEP  with  this  second  set  of 
directives,  a  data  analysis  program  is  run  that  categorizes  the  extracted 
maintenance  data  based  on  several  factors.  The  categorization  allows  the  user 
to  check  the  types  of  maintenance  performed  by  each  work  center  and/or  AFSC. 
Additional  information  on  the  data  analysis  is  presented  in  a  later  section. 

Construction  of  the  all-inclusive  CDEP  directives  follows  the  ap¬ 
proach  used  previously.  There  are  two  sections  in  the  directives  (see  Figure 
15)  again  delineated  by  their  frequency  of  change.  Lines  100-220  remain 
relatively  constant  for  each  base  and/or  aircraft  type.  The  work-center-to- 
AFSC  mapping  is  again  unique  to  each  base  or  aircraft  type.  Because  the 
second  set  of  directives  is  used  to  check  the  first,  it  is  designed  to  select 
all  unscheduled  maintenance  reported  against  the  aircraft  or  its  engine(s). 
Thus,  two  additional  CDEP  report  types  (lines  150-200)  are  requested:  the  C4 
report  is  for  off-equipment  work  reported  against  the  aircraft  or  its 
engine(s);  the  C2  report  is  for  on-engine  maintenance.  The  when-discovered 
code  set  used  for  all  three  report  types  is  all-inclusive,  as  are  the  category 
of  labor  and  type-maintenance  code  sets. 

The  purpose  of  the  all-inclusive  mapping  is  to  make  explicit  the 


type  of  work  performed  by  each  work  center  or  AFSC.  By  making  the  type  of 
contribution  explicit  it  is  easy  to  decide  whether  the  work  center  or  AFSC 
should  be  included  in  the  best-guess  list. 


LIST  JG05A/CDEP/SEL. PR0G/SJ80. 2 


1 00  REPORT  GROUP ,  TITLE?  S'.  J.  -WC-ALL 
110  SORTIES. 7689 
120  REPORT, C2 
1C  »  sr.j,  AFT 

140  WDC,  A.  B.  C.  D.  E,  F,  G.  H,  J,  K.  L,  M,  N,  P,  Q.  R,  S,  T»  U.  V,  W,  X ,  Y,  Z ,  2, 4,  NAME,  WDC-  1 
150  REPORT. C4 
160  SRD, AFT , XFH 

170  WDC, A.B.C.D.E.F.G.H, J. K. L. M. N. P.Q.R.S. T.U. V, W, X, Y, Z, 2- 4, NAME, WDC. 2 
ISO  REPORT, C2 
190  SRD, XFH 

200  WDC  •.<  A »  B ,  C ,  0 ,  E ,  r »  G ,  H ,  .J ,  K »  L ,  M ,  N ,  P ,  Q ,  R ,  S ,  T ,  U ,  V ,  W ,  X ,  Y ,  £ ,  2 ,  4 ,  NAME ,  WDC  •  J 
210  CATEGORY  OF  LABOR, 1 , 2, 3, 4, 5, 6 

220  TYPE  MAINTENANCE  CODES, A,B,C,D, E.H. J.P,Q, R,S,T, Y 
230  WORKCENTERS  TO  AFSCS 


240  4E210?  4E210, 
250  4E214, 4E214, 
260  4E220, 427E1 , 
270  4E230, 423E3, 
280  4E240, 431 El , 
290  4E2S0.423E2. 
300  4E260, 4E260, 


INSPECTION  SECTION 
ENGINE  INSPECTION 
CORROSION  CNTRL 
FUEL  SYS. 

REPAIR  S<  RECLAM. 
EGRESS 

TRANS.  ALERT 
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310 

4E320, 4E320, 
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• 

320 

40111,43101, 

334 

A/C  FLT  " 

A” 

ft  j 
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4Ci 12, 43101 » 

334 

A/C  FLT  " 

B” 

1 

1 

340 

>  3113, 43 1 G i , 

335 

A/C  FLT  " 

A" 

R  ■ 

350 

4G114.431G1, 
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A/C  FLT  ” 

B" 

1 ; 
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40115,43101. 

336 

A/C-  FLT  " 

A" 

1  i 
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A/C  FLT  " 

B" 
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426A2, 42602, 
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SPEC  ,~LT 

"A" 
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K  . 
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335 

SPEC  FLT 

"B" 

—ENGINES 

jag* 
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V 
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i-  , 
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423A0, 42300, 

‘384 

SPEC  FLT 

"A" 

—ELECTRICAL 

uK 

B'  ■ 
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423B0 , 423H0 , 

•T- •*:»=: 
•-»  *-• 

SPEC  FLT 

"B" 

—ELECTRICAL 

jjj- 
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423C0, 42310, 

336 

SPEC  FLT 

tl  p  II 

—ELECTRICAL 

W: 

440 
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SPEC  FLT 

"A" 

— PNEUDRAULI CS 

■  ‘ 
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SPEC  FLT 
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11 
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SPEC  FLT 

It  J--  It 
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jj|.  ' 
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423 A 1,42301, 

334 

SPEC  FLT 

"A" 

— ENVIRONMENTAL 

If  * 

480 

423B1.423H1, 
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SPEC  FLT 

"B" 
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423C1, 42311, 

336 

SPEC  FLT 

it  -  «a 

—ENVIRONMENTAL 

|  : 

500 

328A0-328G0, 

334 

SPEC  FLT 

"A" 

— COMMUNICATIONS 

m}  . 

510 

328B0. 328H0 , 

335 

SPEC  FLT 

'*  3  " 

— COMMUNICATIONS 

(f  ; 

320 

328C0.328Z0. 

336 

SPEC  FLT 

II  i“-  It 

w 

— COMMUNICATIONS 

R.  '! 

530 

323A 1,32801, 

■»'  ■-*  “ 

SPEC  FLT 

"A" 

— NAVIGATION 

K  ! 

540 

328B 1 , 32SH 1 , 

335 

SPEC  FLT 

"B" 

—NAVIGATION 

Hr  j 

550 

32801,32811, 

336 

SPEC  FLT 

II  j-*  ll 

—NAVIGATION 

^  * 

Is 

560 

328A4, 32804, 

334 

SPEC  FLT 

"A" 

—  INERTIAL  NAVIGATION 

mar 

570 

323B4, 323H4, 

*i  e* 

OC'w 

SPEC  FLT 

"B" 

— INERTIAL  NAVIGATION 

|  • 
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328C4, 32814, 

336 

SPEC  FLT 

II  p  II 

—  INERTIAL  NAVIGATION 

m 

590 

325 AO, 32500, 
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SPEC  FLT 

"A" 

— AUTOPILOT 

f  | 

600 

325B0, 325H0, 

33Ft 

SPEC  FLT 

"B" 

— AUTOPILOT 

FIGURE  15.  SEYMOUR  JOHNSON  ALL-INCLUSIVE  DIRECTIVES 
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610 

3 25 CO, 32510, 

336 

SPEC 

FLT 

"C"- 

-AUTOPIL 

or 

620 

325 A 1 , 325G1 , 

334 

SPEC 

FLT 

"A"- 

-INSTRUMENTS 

630 

325B1 , 325H1 , 

335 

SPEC 

FLT 

"g"_ 

-INSTRUMENTS 

640 

32501 , 3251 1 , 

336 

SPEC 

FLT 

II  p*  II  _ 

-INSTRUMENTS 

650 

321A2, 321G2, 

334 

SPEC 

FLT 

11 A 11  — 

-WEAPONS 

CNTRL 

660 

321B2, 321H2, 

335 

SPEC 

FLT 

"B"- 

-WEAPONS 

:  CNTRL 

670 

321C2, 321 12, 

336 

SPEC 

FLT 

ft  p  II  _ 

-WEAPONS 

:  CNTRL 

680 

404A1 , 404G1 , 

334 

SPEC 

FLT 

"AM- 

-PHOTO 

690 

404B1 , 404H1 , 

335 

SPEC 

FLT 

"B"- 

-PHOTO 

700 

40401,40411, 

336 

SPEC 

FLT 

II  p-  II  _ 

-PHOTO 

710 

322 A2 , 322G2 , 

334 

SPpC 

FLT 

"A"- 

-SENSOR 

'720 

322B2, 322H2, 

335 

St-  C 

FLT 

“B"- 

-SENSOR 

/30 

322C2 , 322 12, 

336 

SPEC 

FLT 

If  p*  it  _ 

-SENSOR 

740 

427 A5, 427G5, 

334 

SPEC 

FLT 

"A"- 

-3TRUC . 

REPAIR 

750 

42785; 427H5, 

■— 1 W  W 

SPEC 

FLT 

"B"- 

-STRUC. 

REPAIR 

760 

42705,42715, 

336 

SPEC 

FLT 

"C"- 

-STRUG. 

REPAIR 

770 

4G131 , 462G0 , 

334 

WEAPONS  FLT 

780 

4G 1 32 » 462H0 , 

335 

WEAPONS  FLT 

790 

4G133, 46210, 

336 

WEAPONS  FLT 

800 

4R 110, 328R0 , 

COMM/NAV- 

— 328X1 

810 

4R 1 20 , 325R0 , 

AFC: 

S/INSTR — 3 

25X1 

820 

4R130, 328R4, 

INERTIAL 

NAVI 

CATION 

830 

4R 1 40 ’ 404R1 , 

PHOTO 

840 

4R150, 322R2, 

SEN: 

SOR 

850  4R160v  428R0-  ELECTRICAL 

860  4R 170?  328R3 ,  ELECTRONIC  COUNTER  MEASURES 

870  4R180,321R2,  WEAPONS  CONTROL 

880  4R 181,32182,  RADAR  CALIBRATION 

890  4R2 1 0 ,  426R2 ,  -JET  ENG.  SHOP 

900  4R220, 4R220,  TEST  CELL 

910  4R310, 427R4,  METAL  PROCESSING 

920  4R320, 427R5,  STRUCTURAL  REPAIR 

930  4R330, 427R3,  SURVIVAL  EG. 

940  4R340, 427R0,  MACHINE  SHOP 

950  4R350, 423R4,  FNEUDRAUL I CS 

960  4R360, 423R1 ,  ENVIRONMENTAL 

970  4R37 0 , 427R2 ,  NON-DESTRUCTIVE  INSP. 

980  END 
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The  all-inclusive  list  is  based  on  the  CDEP  selection  "Report  SB" 
and  the  MOI.  Based  on  "Report  SB"  it  is  sometimes  possible  to  eliminate  a 
work  center  or  AFSC  from  consideration  right  away  because  no  unscheduled 
maintenance  was  done.  Another  advantage  of  using  the  "SB"  report  in  combi¬ 
nation  with  the  MOI  is  the  ability  to  identify  changes  in  the  work  centers 
that  appear  on  the  history  tape  but  are  not  yet  on  the  MOI.  Lastly,  use  of 
the  "SB"  report  helps  identify  contributions  of  each  AFSC  within  the  AMUs. 
This  is  very  important  because  it  is  not  always  clear  from  the  MOI  which  AMUs 
work  on  the  different  aircraft. 

The  structure  of  the  work-center-to-AFSC  mapping  in  Figure  15  is 
similar  to  that  used  in  the  best-guess  mapping.  Column  one  is  the  work  center 
code,  column  two  is  the  work  center  or  AFSC  into  which  the  work  center  is 
mapped,  and  column  three  is  the  name. 

The  work  center  naming  convention(s)  in  the  second  mapping  is  dif¬ 
ferent  from  those  used  in  the  best-guess  mapping.  The  all-inclusive  mapping 
is  set  up  to  allow  the  user  of  the  data  analysis  program  to  identify  work 
performed  by  each  work  center  or  AFSC  (in  he  AMUs).  A  similarity  to  the 
previous  mapping  is  that  work  centers  in  the  EMS  are  listed  first;  work 
centers  in  the  AGS  and  CRS  are  listed  si/cend  and  third,  respectively.  No 
significance  should  be  attcrckSd  to  the  work  center  ordering. 

Work  centers  in  the  EMS  (see  Figure  15)  are  mapped  into  their  work 
center  code  or  AFSC.  When  the  work  center  is  mapped  into  its  AFSC,  the  fourth 
position  is  an  "E".  This  helps  identify  the  work  center  as  belonging  to  the 
EMS  when  results  from  the  data  analysis  program  are  examined  without  referring 
back  to  the  mapping.  On  occasion  the  same  AFSC  is  used  in  more  than  one  work 
center  in  the  EMS.  Work  centers  are  differentiated  in  this  case  by  changing 
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the  fourth  position  to  a  "D",  or  "C",  etc.  The  letter  used  depends  on  how 
many  times  the  same  AFSC  is  used  in  different  work  centers. 


A  different  naming  scheme  is  used  to  differentiate  among  AFSCs  in 
the  AMUs.  Earlier,  the  work  center  code  for  each  AMU  was  replaced  by  the  AFSC 
of  the  individual  performing  the  work.  That  AFSC’s  fourth  position  was 
changed  from  "X"  to  “A*1,  "B",  "C" ,  etc.  to  differentiate  among  the  AMUs. 
These  characters  are  changed  in  the  mapping  to  "G",  "H",  and  "I"  to  prevent 
overlap  with  AFSCs  in  the  EMS. 

The  naming  convention  used  for  work  centers  in  the  CRS  is  similar  to 
the  EMS  convention,  except  different  letters  are  used  in  the  fourth  position. 
The  letter  "R"  is  used  to  indicate  that  an  AFSC  belongs  to  a  CRS  work  center. 
When  the  AFSC  is  used  in  more  than  one  work  center,  we  continue  with  the 
alphabet.  For  example,  in  lines  870  and  880  the  321X2  AFSC  is  used  in  both 
the  weapons  control  and  calibration  shops.  The  difference  between  the  shops 
is  preserved  by  mapping  the  work  center  codes  into  321R2  and  321S2, 
respectively. 

Step  3:  Construct  Off-Equipment  Work  Center  Lists.  The  sortie 
generation  model  explicitly  treats  requirements  for  unscheduled  on-aircraft 
maintenance.  Because  significant  unscheduled  off-equipment  maintenance 
requirements  exist,  it  is  necessary  to  determine  if  sufficient  personnel 
resources  are  available  to  meet  surge  maintenance  requirements.^ 

An  estimate  of  the  unscheduled  off-equipment  maintenance  require¬ 
ments  are  computed  by:  (1)  calculating  peacetime  off-equipment  manhours  per 
sortie,  and  (2)  multiplying  the  peacetime  rate  by  the  SGM's  estimated  daily 
sortie  capability.  The  product  is  an  estimate  of  the  required  unscheduled 

^Our  use  of  off-equipment  maintenance  includes  on-engine  maintenance. 


shop  maintenance  requirement.  The  required  shop  manhours  are  then  compared 
with  the  manhours  available  in  each  shop  after  performance  of  unscheduled 
on-aircraft  maintenance.  Unfortunately,  this  approach  ignores  queuing  in  the 
shops,  but  it  has  the  advantage  of  being  simple  and  reasonable  if  the  shop 
utilization  rates  are  low. 

A  best-guess  list  of  off-equipment  work  centers  is  constructed  in 
much  the  same  way  as  the  on-aircraft  list.  However,  the  off-equipment  list  is 
not  used  by  CDEP  but  by  the  data  analysis  program.  Became  of  the  data  pro¬ 
cessing  flow,  the  maintenance  workload  examined  by  the  data  analysis  program 
is  based  on  the  AFSC  in  column  two  of  the  all-inclusive  mapping.  Since  the 
off-equipment  rates  are  computed  at  the  end  of  the  data  analysis  program,  the 
selected  AFSCs  must  also  correspond  to  those  in  column  two. 

Two  AFSC  lists  are  used  to  select  unscheduled  off-equipment  mainte¬ 
nance  manhours.  The  first  list,  shown  in  Figure  16,  is  a  master  list  which 
contains  the  AFSCs  of  interest. 


01  326R3 

02  326R4 

03  326R5 

04  423E2 

05  423E3 

06  423R0 

07  423R1 

08  423R4 

09  462E2 

10  426R2 

11  427R0 

12  427R4 

13  427R5 

14  431E1 

15  AR220 

16  AR370 


FIGURE  16.  MASTER  OFF-EQUIPMENT  AFSC  LIST 
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The  second  list,  shown  in  Figure  17,  is  used  to  map  AFSCs  which  perform  sim¬ 
ilar  functions  into  one  AFSC. 


326R3 

01 

326R4 

02 

326R5 

03 

423E2 

04 

423E3 

05 

423R0 

06 

423R1 

07 

423R4 

08 

462E2 

09 

426R2 

10 

427R0 

11 

427R4 

12 

427R5 

13 

431F1 

14 

431E1 

14 

AR220 

15 

AR370 

16 

FIGURE  17.  ACCEPTABLE  OFF-EQUIPMENT  AFSCs 


This  is  the  same  type  of  function  which  was  performed  by  the  best-guess 
mapping  described  earlier. 

There  are  two  columns  in  both  AFSC  lists.  The  first  two  positions 
in  the  master  AFSC  list  contain  the  numbers  "01"-<,16",  and  are  used  as  array 
indices  for  the  AFSCs  of  interest.  The  second  list  contains  all  AFSCs  of 
interest  in  the  first  column.  The  second  column  is  a  set  of  pointers  to  the 
first  list  and  indicates  the  master  AFSC  into  which  the  acceptable  AFSC  should 
be  mapped.  For  example,  AFSCs  431E1  and  431F1  are  mapped  into  431E1  by  plac¬ 
ing  a  14  in  the  second  column.  The  mapping  causes  work  performed  by  these 
similar  functions  to  be  counted  together. 

Step  4:  Run  CDEP  and  the  Maintenance  Analyzer.  CDEP  and  the  data 
analysis  program  are  run  after  the  CDEP  directives  and  off-equipment  lists 
have  been  constructed.  The  procedure  for  running  CDEP  and  the  data  analysis 
is  very  simple;  the  user  just  initiates  a  JCL  stream.  This  JCL  executes  CDEP 
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twice,  once  with  each  set  of  directives,  and  then  runs  the  data  analysis 
program  using  the  results  of  the  second  CDEP  run-  A  description  of  the  JCL 
and  procedures  for  running  it  are  given  in  Appendix  B. 

Each  CDEP  run  produces  a  set  of  summary  statistics  which  show  how 
many  records  and  manhours  were  read  from  the  base-level  history  tape  and  how 
many  were  rejected  (with  the  reason)  or  selected.  A  sample  "Input  Data  Selec¬ 
tion  Summary"  for  Seymour  Johnson  AFB  is  shown  in  Figure  18.  We  are  inter¬ 
ested  in  the  selected  records  on  Selection  "Report  SD".  "Report  SD"  contains 
a  summary  of  the  direct  manhours  expended  by  each  AFSC  against  the  desired 
SRDs.  We  do  not  use  "Report  SD"  because  it  does  not  separate  on-  and  off- 
equipment  maintenance.  Therefore,  we  modified  CDEP  to  produce  another  output 
reel  which  identifies  on-  and  off-equipment  maintenance.  The  new  output  reel 
is  used  by  the  data  anlysis.  program.  An  output  tape  from  CDEP's  Combination 
Reports  Program  is  then  used  to  calculate  the  SGM  inputs  once  the  output  of 
the  data  analysis  program  indicates  that  the  list  of  best-guess  work  centers 
is  correct.  Once  again,  the  reader  is  urged  to  consult  Figure  13. 

The  data  analysis  program  reads  the  new  tape  created  by  CDEP  and 
characterizes  the  maintenance  dat3  for  each  workcenter-AFSC  combination  based 
on  several  criteria.  The  criteria  are  designed  to  separate  work  based  on: 

(1)  equipment  type  as  indicated  by  the  standard  reporting  designator  (SRD); 

(2)  record  type  as  indicated  by  the  record  ID;  and  (3)  type  of  maintenance. 

Each  major  end  item  in  the  Air  Force  is  assigned  an  SRD.  A  listing 
of  SRDs  and  their  associated  equipment  type  can  be  found  in  USAF  Technical 
Order  00-20-2.  By  way  of  example,  the  SRDs  for  the  F-4E  and  its  J79-17  engine 
are  "AFT"  and  "XFH,"  respectively. 

The  record  ID  identifies  seven  work  categories:  (1)  on-equipment, 
(2)  engine  bench  check,  (3)  off-equipment,  (4)  indirect  labor,  (5)  bit  and 
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FIGURE  18.  IKFUT  DATA  SELECTION  SUMMARY 


piece  part,  (6)  serial  control  or  time  change,  and  (7)  engine  periodic  mainte¬ 
nance  or  inspection.  Our  primary  interest  in  analyzing  the  maintenance  data 
is  to  understand  the  on-  and  off-equipment  categorization,  record  IDs  1  and  3, 
respectively.  Data  for  record  IDs  other  than  1  or  3  are  combined  under  a 
record  ID  of  2.  This  approach  makes  it  easy  to  examine  the  on-  and  off- 
equipment  work,  while  insuring  that  no  work  has  been  improperly  discarded. 

The  third  set  of  criteria  allows  us  to  examine  unscheduled  main¬ 
tenance  independently  of  scheduled  maintenance.  This  is  done  by  categorizing 
records  into  an  acceptable  set  based  on  the  same  type-maintenance  and  when- 
discovered  code  sets  used  in  the  best-guess  CDEP  directives.  An  example 
categorization  for  Seymour  Johnson  AFB  is  shown  in  Figure  19.  Columns  (l)-(3) 
are  self-explanatory.  Columns  (4)  and  (7)  give  the  total  number  of  records 
and  manhours,  respectively.  Columns  (5)  and  (8)  show  the  percentage  of 
records  and  manhours  within  the  SRD  code,  while  columns  (6)  and  (9)  show  the 
same  percentage  disregarding  the  SRD  classification.  Unscheduled  maintenance 
is  identified  by  columns  (10)— (13) - 

The  last  four  columns  in  Figure  19  are  used  to  identify  on-aircraft 
unscheduled  maintenance.  Maintenance  that  has  a  record  ID  of  1,  an  aircraft 
SRD,  and  is  in  columns  (10)- (13)  is  considered  "acceptable.”  If  an  AFSC 
performs  "acceptable"  maintenance  it  is  included  in  the  best-guess  CDEP 
mapping.  AFSCs  are  also  included  in  the  best-guess  mapping  if  they  do  not 
perform  acceptable  maintenance,  but  would  in  a  surge  environment. 

Step  5:  Modify  Step  1  Directives,  If  Necessary.  Examination  of  the 
results  of  the  maintenance  analyzer  is  extremely  important  because  it  can  (and 
frequently  does)  lead  to  changes  in  the  best-guess  mapping.  This  changes  the 
records  selected  for  use  in  calculating  the  SGM  manpower  inputs.  The  output 
of  the  data  analysis  program,  as  shown  in  Figure  19,  is  designed  to  help  the 
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FIGURE  1?-  SAMPLE  SEYMOUR  JOHNSON  DATA  ANALYSIS* 


Manhours  are  in  tenths. 
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analyst  ask  questions  about  the  type  of  maintenance  performed  by  an  AFSC.  By 
obtaining  answers  to  the  right  questions,  the  analyst  can  decide  whether  or 
not  to  include  the  AFSC  in  the  best-guess  mapping.  An  example  of  this  idea, 
using  Figure  19,  follows.  Taking  the  easy  (sensor)  AFSCs  first,  it  is  easy  to 
see  that  322G2  and  322H2  should  be  in  the  best-guess  mapping.  Both  AFSCs  are 
in  the  AGS  (indicated  by  the  ”G”  and  "H"  in  the  fourth  position),  they  com¬ 
pleted  a  similar  number  of  acceptable  manhours,  and  they  perform  on-aircraft 
maintenance.  It  is  more  difficult  to  decide  whether  or  not  to  include  shop 
AFSCs  in  the  best-guess  mapping. 

Let  us  continue  using  Figure  19,  but  consider  the  two  shop  AFSCs, 
321R2  and  321S2.  These  AFSCs  represent  the  weapons  control  and  radar  calibra¬ 
tion  shops,  respectively.  Because  we  are  working  with  shop  work  centers,  it 
is  necessary  to  talk  with  personnel  at  the  base  to  find  out  in  detail  the  type 
of  maintenance  performed  there.  In  our  example  the  321R2  would  be  excluded 
and  the  321S2  included.  The  primary  function  of  the  weapons  control  shop  is 
to  inspect,  install,  maintain,  troubleshoot,  overhaul,  repair,  and  modify 
weapons  control  systems  and  associated  equipment.  This  work  is  all  performed 
in  the  shop,  as  suggested  by  the  low  number  of  on-aircraft  manhours  -  16.4. 

A  different  function  is  performed  by  individuals  in  the  calibration 
shop.  The  data  and  conversations  with  maintenance  personnel  indicate  that 
these  individuals  are  dispatched  to  the  flight  line  when  needed  to  perform 
tasks  which  are  too  complicated  for  the  flight  line  personnel.  For  this 
reason,  maintenance  work  performed  by  the  calibration  shop  (approximately  2500 
hours)  is  included  in  the  best-guess  mapping,  while  work  performed  by  321R2 
individuals  is  not. 
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If  the  321R2  AFSC  had  been  included  in  the  best-guess  sapping  this 
analysis  would  help  correct  the  error.  A  similar  approach  is  followed  with 
the  other  AFSCs. 

Create  SGM  Manpower  Input  Data 

Creation  of  the  SGM  manpower  input  file  can  be  accomplished  by 
running  the  JCL  called  SMALUCL.  This  JCt  stream  t^tcutes  several  programs 
(see  Figure  20)  which  read  an  output  tape  from  CDEP,  a  file  of  maintenance 
manpower  authorizations,  and  several  other  files.  Construction  of  the 
authorizations  file  is  discussed  below  followed  by  a  description  of  each 
program  executed  by  SMALUCL. 

Count  Relevant  Authorizations.  A  count  of  the  number  of  authori¬ 
zations  for  the  "relevant”  AFSCs  is  necessary  to  determine  the  number  of 
servers  available  for  use  in  the  SOI.  This  count  includes  the  authorizations 
for  a  number  of  shop  work  centers,  reflecting  our  belief  that  those  shops 
would  provide  support  to  the  AGS  in  a  surge  as  their  primary  function.  In 
effect,  the  decisions  on  what  work  centers  or  AFSCs  to  count  has  been  made  in 
the  best-guess  directives.  The  number  of  authorizations  reflects  the  best- 
guess  list,  but  it  is  tempered  by  an  understanding  of  the  shop  functions. 

The  unit  manning  document  for  each  base  is  the  source  of  our  author¬ 
ization  totals.  A  portion  of  the  I9fD  for  Seymour  Johnson  AFB  is  shown  again 
in  Figure  21;  the  complete  UMD  is  shown  in  Appendix  D.  Separate  sections  are 
provided  for  each  squadron  (AGS,  CRS,  and  EMS).  In  addition,  the  AMUs  are 
uniquely  identified. 

A  great  deal  of  information  about  the  structure  of  the  wing  is 
contained  in  the  HMD.  Columns  (1)-(14)  describe  the  structure  necessary  to 
count  authorizations  by  AFSC.  These  columns  are  defined  below. 

(1)  -  Column  (1)  indicates  the  base's  name. 
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(2)  -  This  column  gives  the  unit  number;  for  example,  the  4th 

Tactical  Fighter  Wing. 

(3)  -  The  third  column  indicates  the  squadron  type;  in  this  case, 

the  Aircraft  Generation  Squadron. 

(4)  -  The  fourth  column  indicates  the  type  of  unit;  i.e.,  wing 

versus  squadron. 

(5)  -  Data  in  this  column  represent  the  organizational  structure 

code.  Portions  of  these  codes  are  standard;  a  separate  list¬ 
ing  is  needed  to  decipher  them. 

(6)  -  Column  (6)  indicates  the  functional  code  of  the  work  center. 

The  second  through  fourth  digits  of  the  FUNC  code  are  standard 
throughout  the  Air  Force,  and  can  be  found  in  T.O.  00-20-2. 
These  same  digits  also  correspond  to  the  second  through  fourth 
digits  of  the  work  center  codes  found  in  the  maintenance 
operating  instruction. 

(7)  -  The  seventh  column  contains  the  program  element  code  (PEC). 

Each  program  in  the  Air  Force  has  its  own  PEC.  The  PEC  is 
used  to  identify  funding  to  various  programs  and  indicates  the 
funding  source  for  the  authorized  personnel.  It  also  is  a 
good  indicator  of  mobility  requirements;  that  is,  personnel 
with  an  F-4  PEC  would  deploy  with  their  F-4  squadron. 


(8)  &  (9)  -  These  two  columns  indicate  the  AFSC(s)  of  individuals  assigned 
to  the  different  workcenters.  The  last  column  of  the  AFSC 
(the  character)  and  column  (9)  are  suffixes  and  prefixes, 
respectively.  They  are  used  further  to  indicate  the  skill 
type  of  the  individual,  in  particular,  the  specific  equipment 
the  person  is  capable  of  maintaining. 

(10)  -  Indicated  by  column  (10)  are  the  grades  of  each  skill. 

(11)  -  (14)  -  Columns  (11)  (14)  indicate  the  funded  authorizations  for  each 
skill  type.  These  are  the  authorizations  which  a ’e  counted 
for  each  work  center  or  AFSC;  however,  the  skill  levels 
(fourth  position  in  the  AFSC)  are  disregarded.  Current 
authorizations  (they  correspond  with  the  January- June  1980 
maintenance  data)  are  in  the  eleventh  column,  also  iabelled 
4/80.  The  1985  authorizations  (not  shown  in  this  example  for 
security  reasons)  are  used  in  support  of  the  FY  83  POM;  that 
is,  they  provide  an  estimate  of  the  level  of  maintenance 
manpower  resources  available  in  1985.  Authorizations  for  1985 
are  used  because  they  correspond  in  time  to  the  arrival  of 
spares  (lead  time  past  the  buy  point)  funded  with  FY  83 
monies. 

Counting  the  authorizations  for  each  AFSC  can  be  done  after  an 
understanding  of  the  UMD  has  been  developed.  Two  lists  of  AFSCs  must  be  made: 
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on-  and  off-equipment.  The  on-equipment  authorizations  list  corresponds  to 
the  best-guess  mapping  used  in  the  CDEP  directives.  Included  in  the  author¬ 
ization  totals  are  the  CRS  and  EMS  authorizations  that  would  be  available  to 
perform  on-aircraft  maintenance  in  a  surge  environment.  Excluded  from  the 
counts  are  officers,  civilians,  and  "9"-level  skill  types  because  they  are 
supervisors  or  would  not  be  available  in  a  wartime  environment. 

The  off-equipment  list  consists  of  the  authorizations  for  those 
AFSCs  included  in  the  off-equipment  list  used  in  the  data  analysis  program. 
Officers,  civilians,  and  "9"-level  individuals  are  again  excluded,  for  the 
same  reasons  as  before,  from  the  shop  authorization  totals.  A  list  of  on-and 
off-equipment  authorizations  for  Seymour  Johnson  AFB  is  shown  in  Figure  22. 


AFSC 

AGS 

CRS 

EMS 

A-FLT 

B-FLT 

C-FLT 

321X2 

11 

11 

11 

37 

322X2 

17 

325X0 

4 

4 

4 

5 

325X1 

4 

4 

4 

3 

328X0 

5 

5 

5 

5 

328X1 

4 

4 

4 

4 

328X3 

77 

328X4 

4 

4 

4 

5 

404X1 

7 

423X0 

6 

6 

6 

5 

423X1 

3 

3 

3 

4 

423X2 

29 

423X3 

21 

423X4 

6 

6 

6 

6 

426X2 

10 

10 

10 

58 

427X0 

8 

427X2 

12 

427X4 

7 

427X5 

7 

7 

7 

5 

431X1 

67 

67 

67 

27 

462X0 

10 

10 

10 

44 

FIGURE  22. 

ON-  AND  OFF-EQUIPMENT 

MAINTENANCE  AUTHORIZATIONS 

After  the  list  in  Figure  22  is  completed  an  input  file  for  the  SGM 
listing  the  shop  and  total  authorizations  for  each  AFSC  is  contructed.  An 
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example  authorizations  file  for  Seymour  Johnson  is  shown  in  Figure  23.  Only 
the  second  and  third  columns  are  important  to  the  reader.  They  list  the  total 
(AGS  &  shop)  and  shop  (CRS  and  EMS)  authorizations,  respectively. 


TOTAL 

NON-AGS 

AFSC 

AUTHORIZATIONS 

AUTHORIZATIONS 

321X2 

70 

37 

325X0 

32 

8 

328R3 

77 

77 

328X0 

36 

9 

328X4 

17 

5 

404X1 

24 

24 

423E2 

29 

29 

423E3 

21 

21 

423X0 

23 

5 

423X1 

13 

4 

423X4 

24 

6 

426X2 

30 

0 

427R0 

8 

8 

427X5 

26 

5 

431E1 

27 

27 

431X1 

201 

0 

462X0 

30 

3 

FIGURE 

23.  SAMPLE  AUTHORIZATIONS  LISTING* 

AFSC  listing  reflects  the  best-guess  mapping  shown  earlier. 

Run  ” SMALL JCL" .  Maintenance  records  (or  tasks)  selected  by  the 
Common  Data  Extraction  Programs  must  be  "translated"  into  standard  queuing 
model  inputs  (failure  rate,  service  rate,  and  number  of  servers)  for  use  by 
the  SGM.  This  translation  is  done  in  a  three-step  process  using  a  CDEP  output 
tape,  a  file  of  manpower  authorizations,  and  a  list  of  AFSC  names  (correspond¬ 
ing  to  the  manpower  authorizations).  The  three  steps  are:  (1)  an  error 
check,  (2)  a  sort  of  the  records  selected  by  CDEP,  and  (3)  data  reduction  and 


parameter  estimation  (See  Figure  20). 

The  sequence  of  programs  executed  by  "SMALLJCL"  manipulates  the  task 
records  selected  by  CDEP  into  maintenance  jobs  associated  with  specific  work 
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centers.  Some  assumptions  are  then  made  concerning  the  number  of  jobs  which 
can  be  worked  on  simultaneously  and  the  repair  time  distribution  to  estimate 
the  work  center  break  rate  (failure  rate),  work  center  service  rate,  and  the 
number  of  servers  available  in  each  work  center  to  perform  unscheduled  on- 
aircraft  maintenance. 

A  detailed  description  of  the  three  steps  follows. 

Error  Check  Program.  Data  s?  ected  by  CDEP  are  discarded  by  the 
error  check  program  for  two  reasons.  The  first  check  insures  that  the  start 
day  indicated  by  the  JCN  (the  first  three  characters  of  the  JCN  are  the  Julian 
date)  and  Air  Force  Technical  Order  (AFTO)  Form  349  are  within  five  days  of 
one  another.  Records  not  meeting  this  criteria  are  either  bad  or  are  not 
considered  as  unscheduled  corrective  maintenance. 

The  other  rejection  criterion  is  based  on  the  work  unit  code  (WUC). 
Work  unit  code  whose  first  two  digits  are  "10"  or  less  are  rejected  because 
they  are  generally  associated  with  support  general  work;  i.e.,  they  are  not 
unscheduled  maintenance  records. 

A  new  tape  is  written  for  input  to  the  sorting  routine  after  records 
are  rejected  based  on  their  WUCs  and  starting  time  difference. 

Sort  Procedure.  Estimation  of  the  maintenance  manpower  input  param¬ 
eters  requires  that  the  tasks  comprising  a  job  be  grouped  together  and  related 
to  the  work  center(s)  that  performed  the  maintenance.  This  computational 
requirement  dictates  the  sorting  strategy.  Thus,  the  sort  is  performed  on 
three  keys,  listed  in  major  to  minor  order:  performing  work  center,  job 
control  number,  and  starting  time. 

Sorting  on  the  work  center  code  (AFSC)  groups  all  jobs  which  per¬ 
formed  maintenance  in  that  work  center  together.  This  sort  key  is  needed  to 
accumulate  data  efficiently  on  a  work  center  basis.  The  second  sort  key  is 


_? 


\  - 

i 

I 

based  on  the  job  control  number.  Sorting  on  the  JCN  allows  us  to  calculate 
the  job  time  (after  sorting  on  the  next  key)  because  all  tasks  relating  to  the  f 

job  in  the  work  centers  are  grouped  together.  After  sorting  on  the  JCN  it  is 
possible  to  estimate  the  break  rate  because  the  number  of  jobs  requiring 
maintenance  in  each  work  center  is  easily  counted. 

Following  the  JCN  sort  is  a  start-time  sort.  This  sort  orders  the  : 

tasks  within  a  job,  within  a  work  center,  by  starting  time.  Combining  the 
three  sorts  allows  determination  of  the  start  and  stop  times  of  the  first  and 

last  task  in  each  job,  respectively.  Hence,  the  time  to  complete  the  entire  5 

? 

job  is  easily  determined  (last  stop  time  minus  first  start  time). 

Included  in  the  job  time  is  "white  space,"  or  the  time  between  tasks 
when  no  work  is  being  done.  White  space  is  included  in  the  job  time  because  \ 

s 

! 

it  represents  a  portion  of  the  time  required  to  repair  the  aircraft;  i.e.,  it 

1 

represents  part  of  the  service  time  (rate)  input  to  the  queuing  model  repre¬ 
sentation  of  aircraft  maintenance. 

Another  reason  for  the  three-key  sort  is  that  it  facilitates  estima¬ 
tion  of  the  average  crew  size  of  the  jobs  performed  in  each  work  center.  The 
average  crew  size  is  used  later  to  estimate  the  number  of  servers  available  to 
the  queuing  model. 

Reduction  and  Tabulation  Procedures 

The  third  program  run  by  "SMALUCL"  is  the  data  reduction  and  tabu¬ 
lation  routine  (REDTAB).  REDTAB  completes  the  process  of  translating  standard 
Air  Force  maintenance  data  into  the  SGM  queuing  inputs.  Three  files  are  read 
by  REDTAB,  they  are:  (1)  the  sorted  task  records,  (2)  a  list  of  AFSCs,  and 
(3)  a  list  of  manpower  authorizations  corresponding  to  the  AFSCs  in  (2) . 

Written  by  REDTAB  are  the  SGM  queuing  inputs;  an  example  for  Seymour  Johnson 
AFB  is  shown  in  Figure  24. 
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AFSC  PR  (BREAK)  NUM.  CREWS  SVC.  RATE 


321X2 

0.2878 

325X0 

0.1515 

328R3 

0.1062 

328X0 

0.2010 

328X4 

0.1506 

404X1 

0.0225 

423E2 

0.1699 

423E3 

0.0608 

423X0 

0.1188 

423X1 

0.0793 

423X4 

0.0836 

426X2 

0.0508 

427R0 

0.0379 

427X5 

0.1633 

431E1 

0.0335 

431X1 

0.0527 

462X0 

0.1641 

27.7676 

0.1417 

15.0639 

0.1384 

31.0711 

0.1273 

18.3593 

0.1769 

9.5688 

0.2507 

11.9979 

0.1510 

9.9524 

0.0682 

8.3078 

0.1043 

12.2815 

0.1327 

6.5677 

0.1571 

11.9101 

0.1365 

10.8063 

0.1585 

4.5622 

0.3955 

14.8863 

0.2584 

10.7310 

0.0857 

131.4904 

0.5356 

7.2708 

0.5434 

FIGURE  24.  MANPOWER  INPUT  FILE 

The  reduction  and  tabulation  program  reads  and  accumulates  the 
number  of  jobs  and  job  times  by  work  center.  After  the  records  (maintenance 
task  data)  are  read,  some  assumptions  are  made  to  estimate  the  work  center 
break  rates  and  service  rates.  The  authorization  totals  are  then  used  to 
estimate  the  number  of  servers  available  in  each  work  center.  A  detailed 
explanation  of  the  approaches  to  estimating  the  queuing  model  input  parameters 
is  given  below. 

Derive  Maintenance  Manpower  Inputs 

Work  Center  Types.  Aircraft  maintenance  is  performed  by  four  types 
of  work  centers.  Whether  or  not  the  work  center  is  explicitly  modeled  in  the 
Sortie  Generation  Model  (SGM)  depends  on  the  work  center’s  function  and  how 
that  function  coincides  with  the  SGM's  use  as  a  budgeting  tool.  Within  the 
budgeting  framework  the  SGM  Is  intended  to  relate  three  categories  of  resource 
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levels  to  the  ability  of  tactical  air  forces  to  generate  sorties  over  time  in 
a  surge  environment. 

The  work  center  types  are: 

1.  Those  work  centers  assigned  to  the  Aircraft  Generation  Squadron 
(AGS)  which  perform  unscheduled  on-aircraft  maintenance, 

2.  Those  work  centers  in  the  Component  Repair  Squadron  (CRS)  or 
Equipment  Maintenance  Squadron  (EMS)  which  perform  unscheduled 
on-aircraft  maintenance  as  a  primary  function  or  in  support  of 
AGS  when  needed, 

3.  CRS  and  EMS  work  centers  whose  primary  function  is  performance 
of  scheduled  or  off-equipment  maintenance,  and 

4.  Those  CRS  and  EMS  work  centers  whose  on-aircraft  unscheduled 
maintenance  can  be  deferred. 

Only  work  center  types  1  and  2  are  explicitly  modeled  in  the  SGM. 
Workcenter  types  3  and  4  are  not  modeled  because  we  assume  that  most  scheduled 
and  deferable  maintenance  will  not  be  performed  during  a  maximal  surge  effort. 

Examples  of  the  four  work  center  types  are: 

1.  325X0  -  Automatic  Flight  Control  System 
325X1  -  Instrument  Systems 

2.  423X0  -  Electrical  System 
423X1  -  Environmental  System 
423X3  -  Fuel  System 

423X2  -  Egress  System 

3.  426X2  -  Jet  Engine  Intermediate  Shop 
326X4  -  Automatic  Test  Equipment 

4.  427X2  -  Non  Destructive  Inspection 

Work  Center  Break  Rates.  The  work  center  break  rate  is  an  estimate 
of  the  probability  that  unscheduled  on-aircraft  maintenance  (one  or  more  jobs) 
is  required  in  a  work  center  following  a  sortie. 

The  me' hod  of  estimating  the  work  center  break  rate  is  explained  by 
an  example.  Consider  1,000  sorties  and  300  jobs  (related  maintenance  actions 
requiring  maintenance  in  a  particular  work  center).  Assume  jobs  are  randomly 
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distributed  among  the  sorties;  thus,  a  job  "hitting"  a  sortie  is  a  Bernoulli 
process  with 

=  1  if  the  job  hits  the  sortie, 

X 

=  0  otherwise,  and 

=  _ 1 _ 

^  ~  number  of  sorties 

The  total  number  of  jobs  hitting  a  randomly  chosen  sortie  is  the  sum  of  the 
independent  Bernoulli  trials;  i.e.,  a  binomial  random  variable  with  parameters 

n  =  the  number  of  jobs  (work  center  hits)  and 

_  _ 1 _  . 

^  number  of  sorties 

The  work  center  break  rate,  i.e.,  the  probability  that  1  or  more  jobs  require 
maintenance  in  a  work  center  is  given  by 

1  -  (1  -  p)Q.  (1) 

Intuitively,  (1  -  p)  represents  the  probability  that  maintenance  is 
not  required  for  one  job  and  (1  -  p)n  represents  the  probability  that  mainte¬ 
nance  is  not  required  for  any  job.  Thus,  expression  1  represents  the  prob¬ 
ability  that  maintenance  is  required  in  the  work  center  for  one  or  more  jobs 
(the  work  center  break  rate) . 

Work  Center  Service  Rates.  A  work  center  service  rate  is  the  rate, 
in  aircraft  per  hour,  at  which  unscheduled  on-aircraft  maintenance  is  per¬ 
formed  by  a  service  team  (defined  later  in  detail).  The  expected  service  rate 
is  the  inverse  of  the  expected  service  time,  which  represents  the  expected 
time  required  to  complete  all  jobs  (on  the  aircraft)  which  have  broken  into  a 
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work  center.  Calculation  of  the  expected  service  time  is  based  on  three 
assumptions: 


1.  Job  times  are  exponentially  distributed, 

2.  A  maximum  of  three  jobs  break  into  a  work  center  following  a 
sortie  (the  probability  of  more  than  three  jobs  is  negligibly 
small  because  of  the  low  work  center  break  rates),  and 

3.  No  more  than  two  work  center  service  teams  (servers)  can  work  on 
the  aircraft  simultaneously. 

These  assumptions  lead  to  three  cases. 

Case  A.  One  job  in  the  workcenter. 


Job  1:  | _ I  Server  1 

y  =  expected  job  time 


Case  B.  Two  jobs  in  the  workcenter.  Here  we  let  y^  denote  the  length  of  the 
shorter  job  and  y^  the  length  of  the  longer  job. 

yl 

Job  1:  j _ I  Server  1 

Job  2:  j _ I  Server  2 

y2 


In  this  case  we  are  concerned  with  the  service  time  of  job  2,  y^, 
because  the  aircraft  is  in  the  work  < inter  until  the  longer  job  is  completed. 


Case  C.  Three  jobs  in  the  work  center.  Here  we  assume  that  the  first  server 
to  finish  starts  the  third  job. 


Jobs  1  and  3 

Job  2 


Server  1 

Server  2 


In  this  case  we  are  again  concerned  with  the  total  time  in  the  work 
center.  let  Server  1  arbitrarily  be  the  server  that  finishes  first.  Then  y^ 
is  the  expected  job  time  for  Server  I's  first  job.  At  the  end  of  job  1,  both 


servers  may  be  viewed  as  starting  new  jobs  because  the  exponential  distribu¬ 
tion  has  no  memory.  The  longer  of  these  two  new  jobs  has  expected  length  y2; 
therefore,  the  expected  total  time  in  the  work  center  for  all  three  original 
jobs  is  yx  +  y2- 

The  expected  service  time  is  obtained  by  putting  cases  A,  B,  and  C 
together  as  shown  in  equation  2.  Taking  the  inverse  of  the  expected  service 
time  approximates  the  expected  service  rate. 


E[Service  Time]  =  P{1  job]  x  y  +  P{2  jobs}  x  y2 

+  P{3  or  more  jobs}  x  (y^  +  v2)  (2) 


Number  of  Servers.  The  number  of  servers  represents  the  number  of 
maintenance  teams  in  a  work  center  that  are  available  to  perform  unscheduled 
on-aircraft  maintenance  at  a  random  point  in  time.  A  server,  or  maintenance 
team,  is  composed  of  a  number  of  men.  An  approximation  of  the  number  of 
servers  is  given  by  equation  3. 


No.  of  Servers  = 


_ UMD  Authorizations _ 

Expected  Number  of  Men  Working 
On  The  Aircraft 


(3) 


Authorizations  for  a  work  center  (AFSC)  are  obtained  from  the  Unit  Manning 
Document.  Only  type  1  and  2  work  centers,  as  described  earlier,  are  included 
in  counting  the  authorizations  for  an  AFSC.  The  CHS  and  AGS  authorizations  are 
added  together  when  the  same  AFSCs  are  found  in  both  squadrons.  This  total 
gives  the  number  of  individuals  available  to  perform  unscheduled  on-aircraft 
maintenance  in  a  surge  environment. 

More  than  one  job  can  be  in  a  work  center  at  an  arbitrary  point  in 
time.  Thus,  any  approximation  of  the  expected  number  of  men  working  on  the 


57 


aircraft  oust  take  into  account  the  number  of  jobs  being  worked  on  simul¬ 
taneously.  This  is  done  in  equation  4;  however,  we  assume  that  the  same 
average  number  of  men  per  job  work  on  each  job. 


Let  A  ■  Average  Crew  size  per  job. 


Ejkuaber  of  Henj 


f  {l  job}  x  y  x  A  +  P  |2  jobs}  x  (jTj+yj)  x  A  +  P  }3  or  acre  Ir-bs}  x  O.Vj+y2)  x  A 

F.  [Service  Time! 


(4 


APPENDIX  A. 

CONVERT  MAINTENANCE  HISTORY  TAPES 


APPENDIX  A.  CONVERT  MAINTENANCE  HISTORY  TAPES 

TAPE  CONVERSIONS 

A,  JG05A/DLGFILES/PHYSKIP 

Function.  Gives  nuaber  of  blocks  on  each  T-tape. 

Serves  as  a  check  against  the  maber  of  records  on  the 
Zat  tape. 

Input.  T-tapes-aaintenance  data  collection  base  level  h* ;tory 
tapes,  which  contain  raw  aaintcnance  data 

Output.  Coaputer  listing-tells  nuaber  of  blocks  on  each 
T-tape  (called  records  on  listing). 

JCL.  Figure  A-l. 

fxograa  Subaission.  Figures  A- 2,  A-3,  A-4. 

Key 


1.  Run  Coaaand 

2.  Naae  of  prograa 

3.  Naae  of  subaitter 

4 .  User  identification 

5.  Input  tape-this  prograa  is  run  separately  for  each 
T-tape. 

6.  Input  tapes  are  9  track 

7.  Label  of  input  tape-all  T-tapes  have  the  saae 
label,  ABD6DA. 

Saaple  Runs.  Figure  A-5. 

B.  0S29/N241D/UTIL/ J/F4E . ZAT 

Function.  Puts  tapes  in  Honeywell  Systea  standard  foraat. 

Input.  T-tapes-only  the  first  T-tape  fro*  a  base  is  specified. 

Output.  Zat  tape  in  Honeywell  foraat. 

-  check  labels  for  each  tape  created  which  should  be  three 
per  tape 

-  check  error  count  which  should  be  less  than  5 


A-l 


JCL.  Figure  A-6. 


Program  Submission.  Figure  A- 7. 
Key 


1 .  Program  name 

2.  Name  of  submitter  These  questions  are  always  asked. 

3.  User  identification 

4.  Name  of  output  tape 

5.  Area  Code-part  of  six  digit  code  that  identifies 
the  tape  as  that  of  a  particular  user 

6.  Input  tape- this  program  is  run  once  for  all 
T-tapes  from  a  base. 

7.  Label  of  input  tape 

8.  Number  of  records  to  be  dumped  (usually  100) 

Sample  Run.  Figure  A-8. 

C.  JG05A/CDEP/TAPEDUMP 

Function.  Helps  to  confirm  that  Zat  tape  is  good.  Checks 
that  all  the  records  on  T-tapes  were  transferred  to  the 
Zat  tape. 

Input.  Zat  tape  created  from  0S29/N241D/UTIL/J/F4E.ZAT 

Output .  Computer  printout  listing  records-total  number  of 
records  on  the  Zat  tape  is  also  printed. 

JCL.  Figure  A-9 . 

Program  Submission.  Figure  A- 10. 

Key 


1.  Input  tape  reel  number 

2.  Number  of  records  to  be  dumped  (usually  100) 

3.  Input  tape  name 

Sample  Run.  Figure  A-ll. 


A-2 


*M!A,R(XL>  :  ,8,16,58 

*: NOTE:*#  &FIRSTNAME.  JG05A/DLGF I LES/PHYSK I P 

vi I DENT :& I  DENT. 

$ :  MSOl :  4,  GET  ?<  INTAPE.  FOR  INPUT 
*» UTILITY 

$s  LIMITS: 3, 10K, ,  LK 

1* :  MSG2 :  1,  INPUT  REEL=g< INTAPE. 

v i FF I LE : AA , PHYREC 

*JQUTIL: AS IS, TERM 

SsFUTIL: AA, , SKIP/ IF/, HOLD/AA/ 

$ : FUT I L : AA , , SK I P/ 1 F/ , HOLD/AA / 

$  5  PUT  I L :  AA ,  ,  SK  I P/  IF/  ,  REZW/ AA/ 

p :  T APE&7-OR-P .  :  AA ,  A 1 DD ,  ,  S< INTAPE  -  ,  ,  S< I NLABEEL .  ### 

* SEND JOB 


FIGURE  A-l.  JG05A/DLGFILES/PHYSKIP 


A- 3 


1 


*RUN  LA61 A/SUBMIT, R 


*****  STARS  SUBMIT  SUBSYSTEM  ***** 


2.  =RUN  JG05A/DLGF I LES/ PHYSK I P 
ENTER  FIRSTNAME  ? 

3.  =NANCY  B 

ENTER  I DENT  ? 

4.  =GS201 1N241D  , QS29UGQ0DW I N 

ENTER  INTAPE  ? 

5.  =T-30 

ENTER  7— OR— 9  ? 

6.  =9 

ENTER  INLABEL  ? 

7 .  =ABD6DA 


JOB  SUBMITTED 
SNUMB  #  7429U 


FIGURE  A-2.  SAMPLE  PHYSKIP  SUBMISSION 


2 


3. 

4. 

5. 

6. 
7. 


=RUN  J605A/DLGFILES/PHYSKIP 
ENTER  FIRSTNAME  7 

=NANCY  B 

ENTER  IDENT  ? 

1 1 N24 1 D  «  0S29UG00DW I N 
ENTER  INTAPE 
=T~31 

ENTER  7-0R-9  ? 

-9 

ENTER  INLABEL  7 

=ABD6DA 


JOB  SUBMITTED 
SNUMB  #  7433U 


figure  A-3.  sample  physkip  submission 


j 


A-5 


=RUN  JG05A/DLGF I LES/PHY3KI P 
ENTER  FIRSTNAME  ? 

=NANCY  B 

ENTER  I DENT  ? 

=0S201 1N241D  ■>  QS29UG00DWIN 
ENTER  INTAPE  ? 

=T-32 

ENTER  7-0R-9  ? 

=9 

ENTER  INLABEL  ? 

=ABD<£>DA 


JOB  SUBMITTED 
SNUMB  #  7437U 


FIGURE  A-4.  SAMPLE  PHYSKIP  SUBMISSION 


SSSSSSSSSSSSSSSSSSSSSSSSSSS$SSS$SSSSS5SSSSSSSSSSSS5SSSSSSSS$S5SSSSSSSSSS3S3SSSSS3 

SSSSS3SS3SSS3SS33SS3SSSSSSSS3SSSS3S3SSSSSSSS3SS3SSSSS33SSSS3SSSSSSSSS3S33SSSSSSS3 


S5SS3S 

S3 

ssss 

3333 

3  3 

3 

S  S 

3  3 

S  3 

5  S 

3 

3  S 

3 

3  S 

3  3 

3 

SSS5SS 

333 

SSSS 

3  3 

S 

3 

3 

3 

S  3 

S 

S 

S33SS3 

S 

SSSS 

SSSSSSSSSSSS$SSSSSSSSSSS3SSSSSSSSSSSSS3SS33S$SSS3S3SSSSSSSSS3SSSSSSSS3S5SSSSSSSSS 

SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


S3 

7A29U 

o 

UJ 

ft 

bi 

*- 

zr. 

1U 

C  AT  13.109  FROM  TSS/S 

0-08-1' 

0001 

3 

SNUM8 

7«29U 

0002 

3 

COMMENT 

0S29BRIGGS  TSS  CAROIN 

0003 

S3 

USERID 

0S2P9RIGGS3»aaa*J»«#»a 

000a 

3 

NOTE 

**  NANCY  8  *«  JG05A/DLGFILES/PHYSK 

0005 

3 

IOENT 

0S201 IN2910  , 0S29UG00DWIN 

0006 

3 

MSG1 

a, GET  T-30  FOR  INPUT 

0007 

AS 

UTILITY 

0008 

3 

limits 

3.10X., IK 

0009 

3 

MSG2 

1, INPUT  REEL=T-30 

0010 

3 

FFILE 

AA.PHYREC 

0011 

3 

GUTIL 

ASIS, TERM 

0012 

3 

futil 

AA, , SKIP/IF/, HOLD/ A A/ 

0013 

5 

futil 

AA, ,SKIP/1F/ , HOLD/AA/ 

001a 

S 

futil 

AA,,SKlP/lF/,REi*/AA/ 

0015 

3 

TAPER 

aa,aioD,,T-30, , A8D60A### 

0016 

S 

ENOJGB 

total  ca°d 

COUNT  THIS  JOB  s  000016 

FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS 


7429U  01  08/04/80 


UTILITY  REPORT  731111 


PAGE 


1 


*  FF1LE  AA.PHYREC 

*  QUTIL  ASIS. TERM 

*  FUTIL  AA. , SKIP/ IF/, MOLD/ AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 

*  FUTIL  AA. .SKIP/ IF/. HOLD/ AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  10752  RECORDS  IN  LAST  FILE 

*  FUTIL  AA, < SKIP/IF/, REW/AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT'D) 
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ssssss  ss  ssss  ssss 
s  SSSSSS 
ssss  s  s  s  s  s  s 

s  ssssss  sss  ssss 
s  S  S  s 

s  S  .  SSSSSS  s 


SSSS 


ssss 


ssss 


i$MM«sssssssss«s<«««<«««!SSSSSSSS!SSSSSSSsssssssssssssssssssss33sssssssss 
-  3  “«»««“»W|««S«SM3S,S»S„SMS«|S,!S3SS«S«W!!SS!SS!!S!1!S35S3! 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT'm 


A-10 


sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

SSSSSSSSSSSSSSS5SSSSSSSSSSSSS3SSSSSSSSSSS333SSSSSSSS$SSS5S5SSSSSSSSSSSSSS33S3SSSS 


S3SSSS 
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3 

s 

3 

3 


S3 
3  3 
3  3 

SSSSSS 
3 
S 


ssss 

s 

333 

3 

3  3 

3333 


3333 

3 

333 

3 

S  3 
SSSS 


s 

s 

3 

3 
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3 

3 

3 

3 


SSSS 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSS5SSSSSS5SSSSSSSS 

SSSSS3SSSSSSSSSSS5SS$SSSSSSSS5SS33S3SSSSSSS33SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


S3 

7033U  S 

intered  ' 

C  AT  13.169  FROM  TSS/S 

o-os-i ; 

OOOl 

3 

SNUM8 

7U33U 

9002 

3 

COMMENT 

QS29BRIGGS  TSS  CAROIN 

0003 

S3 

USERID 

0S29BRIGGSSflS*a«*9aa* 

000a 

3 

NOTE 

*•  NANCY  9  *«  JGOSA/OLGFILES/PHYSK 

0005 

3 

IOENT 

CS201 lN2a ID  , CS29UG00DMIN 

0006 

3 

MSG1 

a, GET  T-31  FOR  INPUT 

0007 

AS 

utility 

0006 

5 

limits 

3.10K..1K 

0000 

s 

«SS2 

1,  INPUT  REEL  =  T-3l 

0010 

s 

FFILE 

AA.PMYREC 

0011 

3 

qutil 

ASIS.TERM 

0012 

3 

FUTIL 

AA. ,SKIP/lF/,HOLO/»A/ 

0013 

3 

FUTIL 

AA,,$i(IP/lF/,MOLO/AA/ 

001* 

3 

FUTIL 

AA,  ,$XlP/lF/,RE»»/*A/ 

0015 

3 

TAPFO 

AA,Al00,,T-3l,.AB06DA««* 

0016 

S 

ENO JOB 

TOTAl_  C»RO 

COUNT  T 

HIS  JOB  =  000016 

FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONI' D) 


A-n 


7433U  01  08/04/80  UTILITY  REPORT  731111  PAGE  1 

*  FFILE  AA.PHYREC 

*  QUTIL  ASIS. TERM 

*  _  FUTIL  AA..SKIP/1F/.H0LD/AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 


*  FUTIL  AA.. SKIP/ IF/, HOLD/ AA/ 

PILE"  2  BLOCK  3397  FILE  CODE  AA  NCJNRECOVER.  PARITY  ERROR 

FILE-  2  BLOCK  3398  FILE  CODE  AA  NONRECOVER.  PARITY  ERROR 

FILE-  2  BLOCK  3399  FILE  CODE  AA  NONRECOVER.  PARITY  ERROR 

2  B*-OCK  3400  FILE  CODE  AA  NONRECOVER.  PARITY  ERROR 

FILE  CODE  AA  SKIPPED  1  FILES.  10618  RECORDS  IN  LAST  FILE 

*  _  FUTIL  AA. . SKIP/IF/. REW/AA/ 

FILc.  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  fCOOT'm 

t 


m. 


A-12 


P«  STOUT 


RC-53 

1» 

LINES  *T  STa. 

XL 

PROCESSOR 

S  .ao 

S 

I/O 

0.13 

CORE 

S  .55 

TOTAL 
S  5.08 

SNUM8-7fl?5U»  ACTIVlTTasOl .  REPORT  CC0E=53#  RECORD  COUNT=OOOOia 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT'D) 
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$SSSSSSSSSSSSS$SSSSSSSSSSSSSSS$SS«S5SSSSSSS3S5SSSSSSSSSSSSSSSSSSSSSSSSSSS5SSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
—30—  date  09-oi-ai  tike  15.773  10  =  xl  c 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT'D) 
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S33SSS 
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S3 

7337U 

ENTERED 

C  AT  13.188  FRO*  TSS/S  0-08-12 

0001 

5 

SNUMS 

?«37U 

0002 

S 

COMMENT 

0S29BRIGGS  TSS  CARDIN 

0003 

S3 

USERID 

0004 

5 

NOTE 

**  NANCY  3  •*  JS05A/0L5FILES/PNYSKI 

ooos 

3 

IDENT 

0S201 1N2«10  »C52<JUGCC0«tN 

0006 

5 

*$51 

a, SET  T-32  FOR  INPUT 

0007 

AS 

utility 

0008 

s 

limits 

3.10K..1H 

0009 

s 

MSG2 

X.  INPUT  R£EL=T-32 

ooio 

3 

FFILE 

AA.PHTREC 

0011 

3 

OJJTU. 

ASIS.7F3N 

0012 

5 

FUTIl 

AA,,SKIa/lF/.«Ct.D/AA/ 

0013 

S 

FUTIl 

A A,. SKIP/IF /.NOLO/ A A/ 

091s 

$ 

futil 

AA,.S*iP/lr/.SE»/»A/ 

3015 

5 

TAPER 

aa.  A  lDO.  ,T-32»  .AflOt-OAa** 

0916 

3 

EN0JG9 

TOTAL  CaSO 

1  CSUNT  7 

Mis  J03  =  000016 

FIGURE  A-5.  SAMPLE  PHY  SKIP  RUSS  (COST'D) 


7437U  01  08/04/80  UTILITY  REPORT  731111  PAGE  1 

*  FFILE  AA.PHYREC 

*  QUTIL  ASIS,  TERM 

*  RJTIL  AA, .SKIP/1F/.H0LD/AA/ 

PILE  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 

*  FUTIL  AA, .SKIP/ IF/. HOLD/ AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  4223  RECORDS  IN  LAST  FILE 

*  FUTIL  AA, , SKIP/IF/. REW/AA/ 

FILE  CODE  AA  SKIPPED  1  FILES.  1  RECORDS  IN  LAST  FILE 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT'D) 


P*  STOUT 


PC-53  v  LINES  AT  STA.  XL 


PROCESSOR 
S  .16 


I/O  CORE 

1.53  S  .21 


TOTAL 
S  1.50 


SNUM8=7tt37U,  ACTIVin#=01,  REPORT  C00E=53.  RECORD  COUNT=000910 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONT*D) 


A-17 


533SSSSSSS3SSSS55SS$$SSSSSSSSSSSS$5SS5SS5SSSSSSS3SS5SSSSS5SSSS3S5SS55$SSSSS5SSSSS 

5SSSSSS$$SSS5SSSSSSSSSSSS5SSSSSS3SSSSSSSSSSS$55$S$SSSSS$SSSSSS5SSS55$S5SSSSSSSS$S 


SSSSSS  S3  SSSS  S3SSSS  S  3 

S  3  S  3  3  3  S 

SSSS  SSSS  3  S  S  SSS  3  S  3  SSSS  SSSS 

3  SSSSSS  S  SSS 

s  SSSS  s  s 

s  S  SSSS  S  SSSS 

SSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSSSSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
—30—  DATE  09-01-81  TIME  15.772  10  =  XL  C 


FIGURE  A-5.  SAMPLE  PHYSKIP  RUNS  (CONI' D) 


J.O')##S,R<XL)  :  ,8,  16,58 

1 10$:  NOTE :  b F I RSTNAME .  **  0S29/N24 1 D/UT I L/ J/F4E .  Z: 

120$:  I  DENT  s  1  DENT . 

130$"  MSG I :  a, ULG&QUTLABEL. , GS29&AC-2CHAR. , 090 
1 40$ "  MSG  1:4,  GET  3<T APE  1 ,  FOR  INPUT 
1 50$ :  SELECT  :  w'DRA Z 1 00200 1  /  JCL/2AT 1 FO 
l 60PCNSS89 1 T 1 1 

170#  UPHPTLASA9  HIGH  BLKO 1 OXLO 1 60E8CB I C 

1 80$ s L I M I TS i 39 , 1 OK , , 1 K 
2 1 0$ :  MSG2  5  1,1  NPUT  R£EL-?<TAPE ). . 

220$!  TAPE?!  F 1 ,  AID,  ,  StTAPEl .  ,  ,  vcTNLABEL.  ,  ,  DENS### 

230$::  TAPER:  F2 ,  A2C ,  ,  ,  ,  &OUTLABEL.  ,  ,  *** 

300$: UTILITY 

310$:  LIMITS:  01 , 10K-, ,  3K 

320$ : PUT I L : A A , , REW/AA/, ODUMP/S<OUMF— LEN- / 

330$:;  TAPE9:  AA,  <*20 
340$ :  END-JOB 


FIGURE  A-6.  0S29/N24 1D/UTIL/ J/F4E . ZAT 


=RUN  0S29/N241D/UTIL/J/F4E. ZAT 

ENTER  FIRSTNAME 

9 

=NANCY  B 

ENTER  I DENT 

? 

=0S201 1N241D  » 0S29UG00DWIN 

ENTER  OUTLABEL 

? 

-SJ-ZAT 

ENTER  AC-2CHAR 

? 

=26 

ENTER  TAPE1 

? 

=T-30 

ENTER  INLABEL 

? 

=ABD6DA 

ENTER  DUMP-LEN 

=100R 

JOB  SUBMITTED 

SNUMB  #  7423U 

FIGURE  A-7.  SAMPLE  ZAT  SUBMISSION 
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ENTERED  C 

AT  -3.121  FROM  TSS/S  0-08-07 
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S 

SNi'MB 

7023U 
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s 

COMMENT 

0S2R8R IGGS  TSS  CARDIN 

0003 

ss 

USERID 

DS2RBr.  IGGSS»a#s»«8*»* 

oooa 
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VOTE 

•*  VaNCY  3  «*  0S2R/N2aiD/UTIL/J/FaE 
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IDENT 

0S201 lN2alO  , QS2RUG000WIN 
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«SG1 

a  #UL3SJ-Z AT.0S2R26, ORO 
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a, GET  T-30  FOR  INPUT 
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ss 
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0009* 
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0010* 
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0012* 
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ENTRY 
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AS 
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LIMITS 
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0017 
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MSG2 

1, INPUT  REEL=T-30 
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s 

TAPER 

FI , A  ID., 7-30, . A8060A, ,DEN8«8« 

0019 

5 

TAPER 

F2,A2C,,,,SJ-ZAT,,.** 

0020 

AS 

utility 

0021 

S 

LIMITS 

01, 108, ,38 

0022 

s 

FUTIL 

AA,,REVh/AA/,DOUMP/100R/ 

0023 

5 

TAPE? 

AA.A20 

002a 

S 

EN0J09 

TOTAL  CABO 

COUNT  THIS  JOB  =  000026 

FIGURE  A-8.  SAMPLE  ZAT  RUN 


LABEL  RECORD  IS  -83CH//2H$C810<3K3+< 
LABEL  RECORD  IS  -83CIJ02H$C8lO<3+<3+< 
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FIGURE  A- II. 

SAMPLE  TAFEDUMP  RUN 
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FIGURE  A- 11.  SAMPLE  TAPEDUHP  RUN  (CONT'D) 
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APPENDIX  B. 

FIND  AIL  WORK  CENTERS 


APPENDIX  B.  FIND  AIL  WORK  CENTERS 


A.  JG05A/CDEP/JCL/P2.JCL 

Function.  Creates  an  output  tape  with  all  work  centers 
selected.  This  tape  is  used  as  input  to  JG05A/CDEP/JCL/P3. JCL  . 

Input.  Zat  tape  JG05 A/ CDEP/SEL . PROG/FIND . WCS  (Figure  B-l) 

-  dummy  mapping  which  causes  all  work  centers  to  be  selected 

-  SRD's  specified  are  changed  for  each  aircraft  type 
(Lines  1030,  1060,  1090) 

JG05A/CDEP/CSTAR/P2 . C  (Compiled)  See  Figure  G-l  for  COBOL 
listing  of  uncompiled  version. 

Output.  CO. WCS  tape- combination  data  file. 

SEL.WCS  tape  selection  reports  data  file  input  to 
JG05A/CDEP/ JCL/P3 . JCL 

JG05A/ CDEP/0UTPUT/P2 .XI . 2  (Figure  B-2)  SRD-WDC-RPT-ID  index  file 
JG05A/CDEP/0UTPUT/P2 . X2 . 2  (Figure  B-3)  AFSC  index  file 
JG05A/ CDEP/0UTPUT/P2 . X3 . 2  (Figure  B-4)  Report  SOI  index  file 
JCL.  Figure  B-5. 

Program  Submission.  Figure  B-6. 

Key 

1.  Input  tape  reel  number 

2.  Name  of  input  tape 

Sample  Run.  Figure  B-7. 

B.  JG05A/CDEP/JCL/P3.JCL 

Function.  Provides  a  listing  of  all  work  centers  and  their 
manhours . 

Input.  SEL.WCS  tape  produced  from  JG05A/CDEP/ JCL/P2 . JCL 

JG05A/CDEP/CSTAR/P3.C  (Compiled  version).  See  Figure  G-2  for 
uncompiled  version 

Output.  SORT. WCS  tape  containing  sorted  selection  records 
which  are  input  to  JG05A/CDEP/CSTAR/P3.C  program 


Computer  listing  of  all  work  centers. 


JCL.  Figure  B-8. 


Program  Submission.  Figure  B-9. 
Key 

1-  Reel  number  of  input  tape 
Sample  Run.  Figure  B-10. 
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1 000  REr'ORT  GROUP, i I TLt, FIND  ALL  WCS 

1010  SORT I EG* 16662 

1020  REPORT, C2 

1030  SRD, AFT 

1040  WBC , A 

1050  REPORT, 02 

1 060  SRD, XFH 

1070  WDC , A 

1 080  REPORT , 04 

1090  SRD, AFT, XFH 

1100  W DC, A 

1110  WORKCENTERS  TO  AFSCS 
1120  DUMMY, DUMMY 
1130  END 

1 3  40  REPORT , SC, SUPPRESS, REPORT 


FIGURE  B-l.  JG05A/CDEP/SEL. PROG/FIND, WCS 


B-3 


htl-URi  GKUUP  TITLE:  FIND  ALL  WPS 
LIST  Or  USER-SELECTED  SRD'S 
XFHj  AFT 

REPORTSC31  ^  °UTPUT  BY  COMBINfiTION  REPORTS  PROGRAM 

SRD'S:  XFH,AFT 

NDC^S  <**NO  NAME**  s~T) : 

A 

REPORT  C41 

SRD'S:  XFH, AFT 

WDC'S  <**NO  NAME**  SET): 

A 

REPORT  C22 
SRD'S:  XFH 

NDC'S  (**NO  NAME**  SET): 

A 

REPORT  C21 
SRD'S:  AFT 

WDC'S  < **NO  NAME**  SET): 


FIGURE  B-2.  CDEP  REPORT  index  file 
JG05A/ CDEP /OUTPUT /P? . xTTT 


0 1 DUMMYOOOOO 


. . IIIWHIIIIIIIIIIIIII  llnllll  lllllilii  llilll  II  iIiiIIIhIiIIiiIIhIIIiIi  iillil  lill 


JG05A/CDEP/ JCL/P2  -  J 


10##S,R(XL)  8,16,58 

20$ :  NOTE:  ##  ?<FIRSTNAME.  ** 

30$:  I  DENT:?.:  I  DENT. 

33$:  MSG  1 :  4,  GET  &TAPE-#.  FOR  INPUT 
35$  s  MSG 1:4, ULGCO . WCS , 0S2926 , 045 
37$: MSG 1 : 4, ULG3EL. WCS, 0S2926, 045 
40$: OPTION: NOMAP 

50$: SELECT: JG05A/CDEP/CSTAR/P2. C 

60$: EXECUTE 

70$ : L I M  3 TS : 50 , 35K , , 6K 

75$:  TAPE?:  DA,  D1DD,  ,  &TAPE-#.  ,  ,  ScNAME.  ,  ,  ### 
80$: DATA: DI 

85$ ::  SELECT  A :  JG05A/CDEP/SEL .  PR'  '  F  i  .-.0 .  WCS 
90$: FILE: B4, NULL 
100$: SYSOUT®  SO, XL 
1 10$:: SYSOUT : SI , XL 
120$: SYSOUT s DL» XL 

130$: PRMFL: X 1 , W, S, JG05A/CDEP/0UTPUT/P2. X 1 . 2 
140$: PRMFL: X2, W, S, JG05A/CBEP/ OUTPUT /P2. X2« 2 
150$: PRMFL* X3, W, S, JG05A/CDEP/0UTPUT/P2. X3. 2 
1 60$ :  T APE9 :  CO ,  C 1 DD ,  ,  ,  ,  CO .  WCS ,  ,  -fi-## 

170$::  TAPE9*  SR,  S1DD,  ,  , ,  SEL.  WCS,  ,  #*•* 

180$: FILE: RJ, NULL 
190$: END JOB 


«• 


FIGURE  B-5.  JG05A/CDEP/JCL/P2.JCL 


=RUN  JG05A/CDEP/ JCL/P2. JCL 
ENTER  FI RSTNAME  ? 

=NANCY  B 

Enter  ibent  ? 

=0S20 1 1N241D  ,  0S29IJG00D  W 1 N 
ENTER  TAPE-#  ? 

1.  =20641 

ENTER  NAME  ? 

2.  =SJ— ZAT 


JOB  SUBMITTED 
SNUMB  #  33S1U 


FIGURE  B-6.  SAMPLE  CDEP  SELECTION  PROGRAM  RUN 
TO  FIND  ALL  WORK  CENTERS 
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ss 

3381U 

ENTESEO  l 

C  AT  16.910  FROM  TSS/S  0-08 

0001 

s 

SNUMB 

3381U 

0002 

5 

COMMENT 

0S29BRI-;GS  TSS  cardin 

0003 

SS 

USERIO 

0S29BRISGSSft4tf***tf**3 

000a 

S 

NOTE 

**  NANCY  8  **  JG05A/CDEP/JCL/P2. 

0005 

3 

IOENT 

OS20UN2410  » 0S29UGC0DW I N 

0006 

S 

“SGI 

a, GET  20641  FOR  INPUT 

0007 

S 

“SGI 

4,ULGC0.4CS,OS2926,045 

0008 

s 

“SGI 

4,  ULGSEL.WCS, 032926, 045 

0009 

5 

OPTION 

NOMAP 

0010 

SS 

SELECT 

JG05A/C0EP/CSTAR/P2.C 

0011* 

s 

OBJECT 

F/8-NEIS0O 

0013 

AS 

EXECUTE 

00  la 

3 

LIMITS 

50.35X, ,6K 

0015 

3 

TJPE9 

DA, 0100, ,20641, ,SJ-Z AT. ,a»# 

0016 

5 

DATA 

01 

0017 

3 

FILE 

34,. NULL 

0018 

3 

SYSOUT 

SO, XL 

0019 

5 

SYSOUT 

SI, XL 

0020 

S 

SYSOUT 

OL,  XL 

0021 

S3 

PRMFL 

XI  ,it,S»  JG05A/CDEP/OUTPUT/P2.X1 .2 

0022 

S3 

PR.MFL 

X2,W,S,JGOSA/COEP/OUTPUT/P2.X2.2 

0023 

SS 

PPMFL 

X3,i*,S.  JG05A/C0EP/0UTPUT/P2.X3.2 

002a 

s 

TAPE9 

C0.C1D0, , , , CO .ACS  » ,*** 

0025 

3 

TAPE9 

SR.S100, , , tSEL.nCS, , ••• 

0026 

S 

FILE 

9 J, NULL 

0027 

3 

ENDJQ8 

C17.2aOOl23SOSEL£COOO 


FIGURE  B-7.  SAMPLE  SELECTION  PROGRAM  RUN  TO  FIND  ALL  WORK  CENTERS 
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*  BEGIN  ACTIVITY  -01-  GELQAO  08/31/81  SW=000000000000 

INPUT  STARTED  WITH  *20641  FOR  FILE  CODE  DA  GE  600  BTL  AFDSC  20641  20641  0001  80217  000 

OPERATOR  STARTED  WITH  a 21472  FOR  FILE  CODE  SR  GE  600  3TL  AFDSC  21472  21472  0001  81243  000 

OPERATOR  STARTED  WITH  *25238  FOR  FILE  CODE  CO  GE  600  3TL  AFDSC  25238  25238  0001  812*3  000 

INPUT  CONTINUED  WITH  *20441  FOR  FILE  CODE  DA  GE  600  3TL  AFDSC  20441  20641  0002  80217  000 

*  NORMAL  TERMINATION  AT  021641  1=5000  SW=000000000000 


START 

14.790 

LINES 

172 

PROC  0. 

3475 

I/O 

0.104 

IU  5 

MEMORY 

35K 

STOP 

29.346 

limit 

6144 

LIMIT  0. 

5000 

LIMIT 

CU  5 

M»T 

73674 

SWAP 

0.000 

LAPSE 

0.553 

FC 

0  TYPE 

SUSY 

IP/AT 

FP/RT 

IS/*C 

MS/#E 

ADDRESS 

T* 

01 

R  0191 

*  9 

0 

0 

1 

1 

0-08-12 

R* 

R  0191 

•  976 

0 

0 

74 

7a 

0-08-12 

DA 

D  T APR 

318472 

0/00 

23402 

3 

0-16-05 

*20641 

34 

NULL 

3 

0 

0 

• 

• 

0-00-00 

SO 

SYOUT 

SI 

SYOUT 

OL 

SYOUT 

XI 

R  0191 

P  49 

0 

0 

1 

1 

0-08-03 

X2 

R  Dt  91 

P  43 

0 

9 

l 

1 

0-08-03 

X3 

R  D 1 91 

P  6 

0 

0 

1 

1 

0-08-03 

CO 

D  TAP9 

196 

0/00 

140 

0 

0-16-06 

*25238 

SR 

0  TAP9 

*6765 

0/00 

2957 

0 

0-16-07 

*21472 

RJ 

NULL 

3 

0 

0 

» 

• 

0-00-00 

P* 

SYOUT 

L* 

R  0191 

•  769 

0 

9 

624 

624R 

0-08-02 

LIST 

57  LINES 

AT 

STA.  Xl. 

RC-43 

21  LINES 

AT 

STA.  XL 

RC-01 

56  LINES 

AT 

STA.  XL 

BC-00 

39  LINES 

AT 

STA.  XL 

PROCESSOR 

I/O 

CORE 

TOTAL 

S  11.12 

S  6.12 

S  40.39 

S  57.63 

SflUMB  =  3381U.  ACTIVITY  *  =  01,  REPORT  CODE  =  74,  RECQRO  COUNT  s  000057 


FIGURE  B-7.  SAMPLE  SELECTION  PROGRAM  RUN  TO  FIND  ALL  WORK  CENTERS  (CONT*D) 


■iJttJII  01  OH-II-UI  I  *J .  7  *1  *i  PA,iE 

ORIGIN  RATE  MODULE  ENIRY  LOCATION  ENTRY  LOCATION  ENTRY  LOCATION  ENTRY  LOCATION  ENTRY  LOCATION 


B-ll 


GOO  RECIO 


SNUMB  =  32&1U,  ACTIVITY  *  s  01,  REPORT  COOE  =  a3,  RECQRO  COUNT  =  000031 


COEP  STANDARO  H.I.S.  VERSION  1.1 

REPORT  S02  LOG  QF  USER-INPUT  DIRECTIVES  PAGE  1 

REPORT  GROUP  TITLE-NOT  DEFINED 

REPORT  GROUP, TITLE, FIND  ALL  *CS 

SORTIES, 16863 

REPORT, C3 

SRD, AFT 

WOC,  A 

REPORT, C3 

SRO,XFH 

WOC,  A 

REPORT, ca 

SRD. AFT.XFH 

wOC,  A 

WORKCENTERS  TO  AFSCS 

DUMMY,  O'JMmy 

ENO 

REPORT, SC, SUPPRESS, REPORT 

>•*••*••••  ENO  OF  PROCESSING  IS  USER-OIRECTIVES 

SNUM6  s  3381U,  ACTIVITY  #  s  01,  REPORT  CODE  s  01,  RECORD  COUNT  =  000056 


FIGURE  B-7.  SAMPLE  SELECTION  PROGRAM  RUN  TO  FIND  ALL  WORK  CENTERS  (CONT’D) 


B-12 


REPORT  SOI 


CDEP  STANDAfiO  H.I.S.  VERSION  1.1 
USER  INPUT  SELECTION  SUMMARY 
REPORT  GROUP  TITLE-FIND  ALL  WCS 


NOS  VALUE;  FROM  USER  -**NONE*-,  FROM  *Bfl'  DATA  -•»N0N6«- 


NO.  OF  SORTIES  =  16862 


NQ.  OF  FLYING-HQURS  =  «*NONE«* 

WORK  CENTER  TO  AFSC  CONVERSIONS 
OUMMY  DUMMY 


SELECTION  OPTION  -  CATEGORY  OF  LABOR 

defaults  used;  all 

SELECTION  OPTION  -  ASSIGNMENT  COOE 
DEFAULTS  USED;  ALL 

SELECTION  OPTION  -  TYPE  MAINTENANCE 

DEFAULTS  USEO;  Z*W, T, S, P,L»K, J,H,EtD»C, B, A 

SELECTION  OPTION  -  QUEEN  BEE  ENGINES 
DEFAULTS  used;  INCLUDED 

SELECTION  OPTION  -  COMPONENT  POSITION 
OEFAULTS  USED;  E*CLUOEO 

SELECTION  OPTION  -  ACTIVITY  ID/COMMAND  ID 
OEFAULTS  USEO;  ACL 

SELECTION  OPTION  -  3  DIGIT  WUC’S 
DEFAULTS  USED;  ALL 


REPORT  GROUP  TITLE:  Ftno  ALL  WCS 

REPORT  SA  GENERATED 

REPORT  SB  GENERATED 

REPORT  SC  SUPPRESSED 

REPORT  SO  GENERATED 

REPORT  SE  GENERATED 

REPORT  SF  GENERATED 

REPORT  SG  GENERATED 


PAGE 


f 

l 


i 


35PCST  5H  GcNE«*TED 


CDEP  STANDARD  H.I.S.  VERSION  1.1 

REPORT  SOI  USER  INPUT  SELECTION  SUMMARY  PAGE  2 

REPORT  GROUP  TITLE-FINO  ALL  *CS 

LIST  OF  USER-SELECTED  SRD'S 
XFH.AFT 


REPORTS  TO  SE  OUTPUT  3Y  COMBINATION  REPGRTS  PROGRAM 

REPORT  C31 

SRO'SS  XFH.AFT 

wOC ' S  (**NO  NAME**  SET): 

A 

REPORT  C«1 

SRO'S:  XFH.AFT 

aOC'S  (**NO  NAME**  SET): 

A 

REPORT  C22 
SRO'S:  XFH 

wOC'S  (**NO  NAME**  SET): 

A 

REPORT  cat 
SRO'S:  AFT 

.IOC'S  (»*NO  NAME**  SET): 

A 

SNUM8  =  338 l'J.  ACTIVITY  <  :  Ot.  REPORT  CODE  =  00,  RECORO  COUNT  =  000038 


FIGURE  B-7.  SAMPLE  SELECTION  PROGRAM  RUN  TO  FIND  ALL  WORK  CENTERS  (CONT’D) 


B-14 


CDEP  STANOARO  H.I.S.  VERSION  1.1 

REPORT  S00  INPUT  OATA  SELECTION  SUMMARY  PAGE  1 

REPORT  GROUP  TITLE-PIND  ALL  wCS 


input: 


NO.  OF  RECORDS  NO.  OF  MAN-hOuRS 


INPUT  FROM  BASE-LEVEL  HISTORY  FILE  255928 


1011187.0 


OUTPUT: 


NO.  OF  RECOROS  NO.  OF  MAN-hOURS 


REJECTEO  BECAUSE  THE  RECORD: 

O-OUPLICATES  ITS  PRECEDING  RECORD 

1—  HAS  UNWANTED  HORKCENTER  (INDIRECT) 

2—  HAS  UNWANTED  SRO 

3—  HAS  UNWANTED  CATEGORY  OF  LABOR 

4— MAS  UNWANTED  ACFT  ASSIGNMENT  CODE 

5— HAS  UNWANTED  4CTIVITY/C0MMAN0  ID 

6—  HAS  AN  MOC  RECORD- ID  OF  2  OR  5 

7—  HAS  UNWANTED  WORKCENTER  (DIRECT) 
S-HAS  UNWANTED  TYPE-MAINTENANCE  CODE 
R-haS  UNWANTED  QUEEN  BEE  INDICATOR 

1 0—  HAS  UNWANTED  wHEN-OISCOVERED  CODE 

1 1—  HAS  UNWANTEO  3  DIGIT  WORKUNIT  CODE 

12- has  an  moc  action  taken  cooe  *  E 

13- DOESN'T  FIT  A  SPECIFIED  COMB.  RPT. 
I a-HAS  man-hours  =  ZERO ‘ 

15-contaims  unrecognizable  data 

USEO  IN  SELECTION  REPORT 

SA  IfJOIRECT  MAN-HOURS  REPORTED 
SB  WGRKCTRS  NOT  FOUND  IN  DIRECTIVES 
SC  SEP  I ALL T  CNTRtED  REMOVE/INSTAU. 

SO  SELECTED  MAN-HOURS  REPORTEO 
SE  SCHEDULED  INSPECTIONS  REPORTED 
SF  SPECIAL  INSPECTION  REPORTEO 
SG  TCTO  WORK  REPORTED 
5H  CANNIBALIZATION  wORK  REPORTED 

PA5SED  TO  THE  COMBINATION  PROGRAM 
WUC:  04XXX  (SPEC.  INSPECTION  DATA) 
wuc;  HOOOf  (OTHER  COMB.  REPT  DATA) 


47539 

15215 

102418 

0 

0 

0 

2295 

87540 

0 

0 

0 

0 

V 

0 

0  • 
12 


0 

37540  * 

909 

a 

0  * 
0  * 
0 
0 


0  * 

0  • 


89538.6 

196272.5 

420927.0 

0.0 

0.0 

0.0 

0.0 

304448.9 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

304448.9 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

0.0 


*  NOTE;  These  RECOROS  AND  MANHOURS  ARE  REPORTED  IN  OTHER  ENTRIES  ON  THIS  REPORT 
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5SSSSSSSSS3SSSSSSSSSSSSSSS$SSSSSSSSSSSSSSSSSSSS3SSSSSSS5SSSSS5SSSSSSSSSSSS3SSSSS$ 
SSSSS$3$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS$SSSSS3S3SS3SSSSSSS3SSSSSSSSSSSSSSS3SSSSSSS3 
—30—  DATE  00-01-3!  TIME  15.753  10  =  XL  C 
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B-I6 


10##S, R<  XL)  :, 8, 16,58 

20$:  NOTE:  &FIRSTNAME.  **  JG05A/CDEP / -JCL / P 

30$:  NOTE:  RUNS  CE'EP  SELECT  I  ON  REPORT S  PROG 

40$:  NOTE:  IN  FILE  JG05A/' CE=EP/CST AR/P3 .  C 

50$ :  I  DENT :  %t  I  EsENT . 

51$: MSG 1 : 4, ULGSORT. WCS, 0S2926, 045 

6.0$:  NOTE:  COPY  9  TRACK  TO  7  TRACK  TAPE  **■ 

70$: UTILITY 

80$: LIMITS: 05, iOK, , IK 

90$:  MSG2: 1 ,  INPUT  REEL  =?!  INTAPE. 

100$:  FUTIL:  IN,  SA,  REW/  IN,  SA/ ,  COPY/  IF >' ,  REW/’IN,  SA/ 
1 1 0$ :  T  APE9 :  I N ,  33D »  ,  3c  I  NT  APE ,  ,  ,  SEL ..  WCS ,  ,  ### 

1 20$ :  T APE7 :  SA ,  T OC ,  ,  ?  ,  SORT .  WCS ,  , 

130$: GMAP: NDECK 
1 40 : 600SM 
150: SORT: IMOUT, ,8 
1 6>0 :  F I  ELD  :  C 1 3 
170: SEQs  A1 
1 80 :  F I LCB :  I NOUT 
190: END 

200$: OPTIONS: NOMAP 

210$: EXECUTE 

220$: LIMITS: 15,35K, , IK 

230$: TAPE?: SA, TODD, , , , SORT. WCS, , ##S 

240$: FILE: SZ, T1S, 22SL 

250$: FILE: SI , SIR, 100R 

260$ : FILE: 82, S2R , 1 OCR 

270$:  FILE:  S3 ,  S3R  ,  1 OOR 

280$: OPTION: NOhAP 

290$: SELECT: JG05A/CDEP/CSTAR/P3- C 

300$: EXECUTE 

310$: LIMITS: 15, 25K, ,6K 

320$: FILE: T1,T1R 

330$: SYSOUT: LI , XL 

340$: SYSOUT: L2, XL 

350$: END JOB 


FIGURE  B-8.  JG05A/CDEP/JCL/P3.JCL 


TO  CC 


=RUN  JG05A/CDEP/ JCL/P3. JCL 
ENTER  FIRSTNAME  ? 

=NANCY  B 

ENTER  IDENT  ? 

=08201 1N241D  , 0S29UGG0DWIN 
ENTER  INTAPE  ? 

=21472 


JOB  SUBMITTED 
SNUMB  #  1190U 


FIGURE  B-9.  SAMPLE  SELECTION  REPORTS 

SUBMISSION  TO  FIND  ALL  WORK  CENTERS 


ssssssssss$sss$sss?ss$ssss.issas$$ss$sssssssssssss$sssssss$ssssssssss$s5ssssss$ssss 

SSSSSS5S$$SSSSSSSS$S$$SSSSSSS$$SSSSSS3SSSSSSSSSS3SSS$SSSSSSS$SSSSSS$$SSSSS$SSSSSS 


s 

ss 

s 

s 

s 

sss 


s 

ss 

s 

s 

s 

sss 


ssss 
s  s 

s  s 

ssss 

3 

s 


ssss 
s  s 

s  s 

s  s 

s  s 

ssss 


3  S 

s  s 

S  5 

s  s 

s  s 

ssss 


sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

cSSSSSSSSSSSSSSSS$$SSSSSSSSS$SSSSSSSSSSSSSSSS5SSSSSSSSS$SSSSSSSSSSS$SSSSSSSSSSSSS 


ss 

O 

cz 

ENTERED 

0001 

s 

SNUM8 

0002 

s 

COMMENT 

0003 

ss 

USER  10 

0004 

s 

NOTE 

0005 

s 

NOTE 

0006 

s 

MOTE 

0007 

s 

IDENT 

0008 

s 

MSG  1 

0009 

s 

NOTE 

0010 

AS 

UTILITY 

0011 

s 

LIMITS 

0012 

s 

MSG2 

0013 

s 

FUTIL 

0014 

s 

TAPER 

0015 

s 

TAPE7 

0016 

AS 

GMAP 

0017 

s 

options 

0013 

AS 

EXECUTE 

0019 

s 

LIMITS 

0020 

5 

TAPS7 

0021 

s 

FILE 

0022 

s 

FILE 

0023 

3 

FILE 

0024 

5 

FILE 

0025 

s 

OPTION 

0026 

s  s 

SELECT 

0027* 

s 

G8JECT 

0029 

AS 

EXECUTE 

0030 

S 

LIMITS 

0031 

c 

FILS 

0032 

s 

SYSOUT 

0033 

s 

SYSOUT 

003a 

s 

SMO JOS 

AT  07.94&  FROM  TSS/S  0-08-11 


1 1 90U 

OS298R IGGS  TSS  CARDIN 

0S29BRlGGSSs#t8##a»aa 
**  NANCY  B  **  JG05A/CDEP/JCL/P3.JCL 
«*  RUNS  COEP  SELECTION  REPORTS  PROGRAM 
**  IN  FILE  JGOSA/COEP/CSTAR/P3.C 
OS201 1N2410  ,  GS29UG00DWIN 
4,  ULGSORT.WCS, 052926,045 
**  COPY  9  TRACK  TO  7  TRACK  TAPE  •• 

05, 10K, , IK 

l, INPUT  REEL  =21472 

IN,SA,RE*/IN,SA/,COPY/lP/,RE-«/lN,SA/ 

IN, 930, ,21472, .SEL.WCS, ,### 

SA , TOC , , , , SORT ,wCS, , *  ** 

NOECK 


15, 35K, , IK 

SA , TOOO, , , , SORT.WCS, 
SZ , T 1 S, 2B8L 
Si  .SIR, IO0R 
S2,S2R» 100R 
S3.S3R, 100R 
NOMAP 

JG05A/COEP/CSTAR/P3.C 

F/8-NEIS00 

IS.2SK, ,6K 
T1.T1R 
LI, XL 
L2,  XL 


C17.328012380SELRPT00 


TOTAL  CARD  CCUNT  THIS  JOB  s  000339 


*  BEGIN  ACTIVITY  -01-  UTILIT  09/02/81  SWsQ 1 0000000000 

INPUT  STARTED  WITH  #21472  FOR  FILE  CODE  IN  GE  600  9TL  AFOSC  21472  21472  0001  81243 

FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALL  WORK  CENTERS 
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OPERATOR  STARTED  HUM  #?77S1  FUR  F1CF  CHOP  SA  BE  h 00  HTL  AFOSC  P775I  P7751  0001  HIPill  000 

*  NORMAL  TERMINAT  f  ON  AT  00653S  1=1000  SW=0 1 0000000000 
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FIGURE  B-10. 


«  C  w  z 

SAMPLE  CPE?  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALL  WORK  CENTERS  (CONT’D) 


LINK  UTILIZATION.  ALLOCATED  00100  BURROWED  00000  USED  OOsao 

RECORDS  INPUT  =  0008750H.  RECORDS  OUTPUT  =  00087500. 

SORT  TEHHINATES. 

»  NORMAL  TERMINATION  AT  000170  I=00?0  SW=0 1 0000000000 


S3  R  D 1 91 
P*  SYOUT 

•  22388 

0 

0 

1200 

1200R 

0-08-09 

L*  R  0191 

»  889 

0 

0 

624 

624R 

0-08-02 

LIST 

21  LINES  AT  STA 

.  XL 

PROCESSOR 

I/O 

CORE 

total 

3  2.10 

5  3.73  S 

10.93 

S  18.76 

*  BEGIN  ACTIVITY  -0 a- 

*  normal  termination 


geload  09/oa/at  swsoooooooooooo 

AT  033775  1=5000  SWsQOOOOOOOOOOO 


START 

8.730 

LINES 

248 

PROC  0.0209 

I/O  0.016 

STOP 

SWAP 

8.776 

0.000 

LIMIT 

6144 

LIMIT  0.1500 

LIMIT 

LAPSE 

0.086 

PC 

0  TYPE 

8USY 

IP/AT  FP/RT 

IS/#C  MS/4E 

T 1 

R  0191  • 

53637 

0  0 

2736  2736 

R* 

R  0191  » 

415 

0  0 

28  28 

LI 

SYOUT 

L2 

SYOUT 

P* 

SYOUT 

L* 

R  0191  * 

979 

0  0 

624  624R 

LIST 

17 

lines 

AT  STA. 

XL 

RC-01 

205 

LINES 

AT  STA. 

XL 

RC-02 

26 

LINES 

AT  STA. 

XL 

IU  5  MEMORY 

CU  35  M*T 

ADDRESS  Ts 

0-08-16 

0-08-12 

0-08-02 


PROCESSOR 
5  .67 


I/O  CORE  TOTAL 

5  .’1  3  1.73  $  3.31 


SNUMB  =  1190U,  ACTIVITY  3  =  01.  REPORT  COOE  =  53.  RECORD  COUNT  =  000004 


FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALLWORK  CENTERS  (CONT'D) 


25K 

8533 


B-21 


t i90u  01  o<»/oa/8i 


UTILITY  REPORT  731111 


PAGE 


1 


3  PUTIL 

COPIED 


IN,SA,REW/IN,SA/,C0PY/1F/,REW/IN,SA/ 

1  FILES.  87548  RECOROS  IN  LAST  FILE 


SNUMB  =  1190U,  ACTIVITY  *  =  02,  REPORT  CODE  =  7a,  RECORD  COUNT 


FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALL  WORK  CENTERS  (CONT'D) 


000070 


B-22 


FIGURE 


1190U  03  09-02-81.  08 .57 1 

PREFACE 

PROGRAM  BREAK  117 
COMMON  LENGTH  0 

V  COUNT  BITS  5 

PRIMARY  SYMOEF  ENTRY 

.  0 

SECONOARY  SYMOEF  ENTRY 
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FIGDRE  3-10.  SAMPLE  CDEP  SELECTION  REFORTS  PROGRAM 


REPORT  SE  SCHEDULED-INSPECTION  WORK  REPORTED  FOP 

COEP  STANDARD  H.I.S.  VERSION  1.1  REPORT  GROUP  TITLE  FIND  ALL  HCS 

***«  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


NO  DA  -  FOR  THIS  SELECTION  REPORT 


FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  lu  FIND  ALL  WORK  CENTERS  ( CONI' P) 


REPORT  SF  SPECIAL-INSPECTION  WORK  REPORTED  FOR 

CDE°  STANDARD  H.I.S.  VERSION  1.1  REPORT  GROUP  TITLE  FIND  ALL  WCS 

**«*  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


NO  DATA  FOR  THIS  SELECTION  REPORT 

FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALL  WORK  CENTERS  (CONT'D) 
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REPORT  SG 

CDEP  STANDARD  h.I.S.  VERSION  1.1 

**«•« 


NO  DATA  for  THIS  selection  repor 


FIGURE  B-10. 


T  -  C  -  T  -  o  WORK  REPORTED  FOR 
REPORT  GROUP  TITLE  FINC  ALL  WCS 

SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FINS  ALL  WORK  CENTERS  (CONT'D) 
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REPORT  SH  CANNIBALIZATION  WORK  REPORTED  FOP 

CDEP  STANDARD  H.I.S.  VERSION  1.1  REPORT  GROUP  TITLE  FIND  ALL  WCS 

***•  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION 


NO  DATA  FOR  THIS  SELECTION  REPORT 

SNUM6  s  1 1 RQU »  ACTIVITY  a  =  0«,  REPORT  CODE  s  02.  RECORD  COUNT  s  OOOCSb 
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«*•  COE?  STANOARD  H.I.S.  VERSION  1.1 
**«  SELECTION  REPORT  PROCESSING  LOG  **« 


HOR  -AOOOOOOOOOOOOOFINO 

ALL 

NCS 

-CNT  = 

1 

MOR  >80000000000000 

-CNT= 

2 

HOR  -CQ0000000000020iS362SORTI£S 

-CNT  = 

87503 

HOR  -OOOOOOOOOOOOOOFINO 

ALL 

wCS 

-CNT= 

37Saa 

HOP  -EOOOOOOOOOOOOOFI'ID 

ALL 

flCS 

-CNT= 
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HOR  -FOOOOOOOOOOOOOFINO 

ALL 

*CS 

-CNT= 
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HOR  -GOOOOOOOOOOOOOFiNO 

all 

WCS 

-CNT= 

37547 

HOR  -hOOOO 000000 ooofino 

ALL 

/ICS 

>CNT= 

375a8 

**■»*>  END  CF  PROCESSING 

.  INPUT  RECORD  COUNT  IS 

-CNT= 

375aq 

«*«»-  TOTAL  SELECTION  REPORT  OUTPUT  PAGE  COUNT  IS 

•CNTs 

10 

FIGURE  B-10.  SAMPLE  CDEP  SELECTION  REPORTS  PROGRAM 
RUN  TO  FIND  ALL  WORK  CENTERS  (CONT'D) 
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APPENDIX  C.  EXTRACT  RELEVANT  MANHOURS 


Case  1:  Certain  flightline  work  centers  (WC's)  need  to  be 
replaced  with  their  associated  Air  Force  Specialty  Codes 
(AFSC's). 

Case  2:  No  replacement  of  work  centers  with  their  AFSC's 
is  necessary. 


CASE  1 

A-  LA61A/SUSAN/ CDEP/CSTAR/RUN 

Function.  Replaces  work  centers  with  associated  AFSC. 

Input.  Zat  tape 

LA61A/ SUSAN/ CDEP/CSTAR/CHCODES  (Compiled).  See  Figure  C-l 
for  listing  of  uncompiled  version.  This  COBOL  program 
moves  the  AFSC's  to  the  WC  position. 

JG05A/CDEP/C0DE/BASE  (Figure  C-2) 

-  this  file  tells  the  number  of  and  which  WC's  are  to 
be  replaced 

-  used  by  LA6 1A/ SUSAN/CDEP/ CSTAR/ CHCODES  program 

Output.  AFSC  tape  having  AFSC's  in  the  position  of  the  WC's 
specified  in  the  JG05A/CDEP/C0DE  file. 

JCL.  Figure  C-3- 

Program  Submission.  Figure  C-4. 

Key 

1.  Name  of  output  tape,  BASE  Name-AFSC 
2-4.  Reel  numbers  of  input  tapes. 

5.  Name  of  base,  completes  JG05A/CDEP/C0DE/  file 

6.  Name  of  input  tape. 

Sample  Run.  Figure  C-5. 

B.  JG05A/BRIGGS/NEWDUMP 

Function.  Indicates  if  AFSC  tape  is  good  and  if  all  records 
from  Zat  tape  were  transferred  to  AFSC  tape. 

Input.  AFSC  tape. 

Output.  Computer  printout  of  specified  number  of  records. 
Many  times  the  records  listed  will  not  be  those  that  had  the 
WC’s  replaced  by  AFSC's,  but  the  total  number  of  records 
transferred  from  zat  tape  to  AFSC  tape  can  be  checked. 


C-l 


JCL.  Figure  C-6. 

Program  Submission.  Figure  C-7. 
Xey 


1.  Input  tape  reel  number 

2.  Number  of  records  to  be  skipped 

3.  Number  of  records  to  be  dumped 

4.  Input  tape  name 

Sample  Run.  Figure  C-8. 

C.  JG05A/CDEP/ JCL/P2 . JCL 

Function.  Provides  an  output  tape  with  all  work  centers 
and  AFSC’s  that  have  replaced  some  of  the  work  centers, 
as  input  to  JG05A/CDEP/ JCL/P3 . JCL  . 

Input.  AFSC  tape 

JG05A/ CDEP/SEL . PROG/FIND . WCS  (Figure  B-l) 
JG05A/CDEP/CSTAR/P2 . C 

Output.  CO. WCS  tape,  combination  data  file 

SEL.WCS  tape,  selection  reports  data  file  used  as  input 
to  JG05A/CDEP/ JCL/P3 . JCL 

JG05A/ CDEP/ 0UTPUT/P2 . XI . 2  (Figure  B-2) 
JG05A/CDEP/0UTPUT/P2 . X2 . 2  (Figure  B-3) 

JG05 A/ CDEP/ 0UTPUT/P2 . X3 . 2  (Figure  B-4) 

JCL.  Figure  B-5. 

Program  Submission.  Figure  C-9. 

Key 


1.  Input  tape  reel  number 

2.  Name  of  input  tape 

Sample  Run.  Figure  C-10. 

D.  JG05A/CDEP/ JCL/P3 . JCL 

Function.  Indicates  if  the  AFSC  movement  program, 
LA61A/SUSAN/CDEP/CSTAR/RUN,  worked.  AFSC’s  should  show 
up  on  the  computer  print-out  together  with  the  work  centers 
that  were  not  changed. 

Input.  SEL.WCS  tape  from  JG05A/CDEP/ JCL/P2 . JCL 
JG05A/CDEP/CSTAR/P3 . C 
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Output.  SORT.WCS  tape,  sorted  selection  records,  used  as 
input  to  JG05A/CDEP/CSTAR/P3.C  program. 

Computer  print-out  of  all  WC's  and  those  AFSC's  which  replaced 
some  WC's. 

JCL.  Figure  B-8. 

Program  Submission.  Figure  C-ll. 

Key 


1.  Input  tape  reel  number 
Sample  Run.  Figure  C-12. 

E.  JG05A/CDEP/ JCL/DB . CRE 

Function.  Creates  data  for  0S29/N241D/CDEP/SMALUCL  program. 

Input .  AFSC  tape 

JG05A/CDEP/CSTAR/P2.C  (uncompiled  version  in  Figure  G-l) 
JG05A/CDEP/DET.REC  (Figure  H-l) 

For  on-equipment  maintenance: 

JG05A/CDEP/SEL.PR0G/  Base  80.1  (Figure  C-13)  -  best  guess  of  AFSCfs 
JG05A/CDEP/SEL.PR0G/  Base  80.2  (Figure  C-14)  -  all  inclusive 
mapping  of  AFSC's 

For  off-equipment  maintenance: 

JGQ5A/CDEP/ILMMAP/  Base  80  (Figure  C-15)  -  mrster  off-equipment  AFSC  list 
JG05A/CDEP/0FFMAP/  Base  80  (Figure  C-16)  -  acceptable  off-equipment 
AFSC  list. 

Output.  CO.  Base  tape,  input  for  0S29/N241D/CDEP/SMALUCL 
0S29/N241D/CDEP/WCMAP/  Base,  (Figure  C-17)  File  containing 
AFSC's  used  in  Analysis  Report  (those  listed  in 
JG05 A/CDEP/SEL . PROG/  Base  80.1) 

JG05 A/ CDEP/ OUTPUT/ P2 . XI  (Figure  C-18)  SRD-WDC-RPT-ID  index  File 
JG05A/ CDEP/0UTPUT/P2 . X2  (Figure  C-19)  AFSC  index  file 
JG05A/CDEP/0UTPUT/P2.X3  (Figure  C-20)  SOI  index  file 

Computer  print-out,  listing  AFSC's  specified  in  the  Base  80.2 
file  and  relevant  manhours,  used  as  a  check  on  best-guess  mapping. 

Computer  print-out  of  off-equipment  maintenance  AFSC’s,  total 
manhours,  and  manhours  per  sortie. 


JCL.  Figure  C-21. 


Program  Submission.  Figure  022. 
Key 


1.  Input  tape  reel  number 

2.  Second  input  tape  reel  number  (otherwise  answer  none) 

3.  Name  of  output  tape 

4.  Name  of  input  tape 

5.  Base  name  used  in  map  1 

6.  Base  name  used  for  0S29/N241D/CDEP/WCMAP/  Base  File 

7.  Base  name  used  in  map  2 

8.  Enter  T  if  Intermediate  level  maintenance  calculations 
are  desired,  F  if  not. 

9.  Enter  base  for  ILM  calculations,  enter  N  if  the  answer 
to  8  was  F. 

10.  Number  of  aircraft  types  at  the  base,  note  space 

11.  The  type  of  aircraft  SRD’s 

12.  Engine  SRD's 

13.  Number  of  sorties  flown,  note  space 
Sample  Run.  Figure  023. 

CASE  2:  No  replacement  of  work  centers  with  their  AFSC's  is  necessary. 

A.  JG05A/CDEP/JCL/DB.CRE  is  the  first  step 

Function.  Creates  data  for  0S29/N241D/CDEP/SMALUCL  program. 

Input.  Zat  tape-no  AFSC  tape  created  in  this  case. 

All  other  tapes  and  files  are  the  same  as  in  Case  1. 
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THE  RECORD. 

OMPUTER  PROGRAMS  FOR  THE  MATHEMATICAL 
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E  PWC  Or 


10220 
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10240 
10250 
1 0260 
10270 
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10310 
10320 
1 0325 


*  PWC  — PERFORMING  WORK  CENTER*  8-102  POSITIONS 

*  MIDPART  — MIDDLE  PART*  13-80  POSITIONS 

■*  AFSC  — AIRFORCE  SPECIALTY  CODE*  S3 -85  POSITIONS 

*  ENDPART  — ENDPART*  86-140  POSITIONS 
!> 

*  THE  REST  OF  THE  VARIABLES 

«•  NEwCODE  — HOLDS  THE  COPY  OF  THE  CODES  TO  BE  CHANGED 

*  WITH  THE  4TH  LETTER  REPLACED* 

*  NCLETTER  — USED  TO  REFER  tq  THE  INDIVIDUAL  LETTERS  OP 

«■  NEWCODE 

*  LETTERS  Sc  ALPHAS  — A  LIST  OF  THE  ALPHABET  USED  TO 
■*  LETTER  — I  NO  I  DUAL  CHACTER  OF  LETTERS 


e (ri  ! 


PROGRAM. 

NV I RONMENT  d I 


NPUT— OUTPUT  SECT I ON . 
ILE  CONTROL. 

FILE  WITH  CHANGED  PW< 


KOn  USER 


s— *5  WI  i  t — ■  U*-*DeS  TO  SE  ■  HAMjTED  ON  -  JGi  *^"#A / COEr3 ■  iis-*. 


FIGURE  C-l.  CHCODE  LISTING 
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10470  Sc-LECT  CuEP— I NuODt  ASSIGN  *0  CO. 

1 0480  I -0— CONTROL • 

i 1 ■' 1  i  hPPLt  SYSTEM  hNDARD  FORiiA^"  ON  CDEP— GUTPL 

i05vo  CuEP—  I  Nr-  u  <  —BASE— OAT  A  CDEF' — INCOEE. 

10510  DATA  DIVISION. 

10520  PILE  SECTION. 

10530  FD  CDEP-0U1 PUT-BASE-DATA  LABEL  RECORD  STANDARD. 
10540  01  OUT —DATA. 


0550 

03  ODATA  I 

0560 

FD 

CDEF- I NPUT 

OD  / 

01 

IN— DATA. 

0580 

03  IDATA 

0590 

FD 

CDEF'— I NCO 

0400 

01 

CDEP— CODE 

1060d  03  FILLcF:  PIC  X. 

10610  03  I CODE  PIC  X(5). 

1 0620  WORKING— STORAGE  SECT i ON . 


1  043  0 

01 

NUN  PIC  9(5). 

10440 

01 

I  PIC  99. 

1 0-650 

01 

E0F3W 1 7 CH  FTC  ’9  ‘ 

(-1  s 

V  A 

ALPHAS  PIC  12 1 

10-670 

01 

RtDizn 

1 0430 

03  LETTER  PIC  A 

10-690 

01 

NEWCODE . 

10700 

03  NCLETTER  F I C 

10710 

01 

CODES. 

10720 

03  CODE  PIC  A<5 

10730 

01 

CDEF-REC-TRD. 

10740 

03  -JCN  PIC  A ( 7 ) 

10750 

03  PWC  FTC  A ( 5 ) 

10740 

03  MIDPART  PIC  . 

10770 

03  AFSC  PIC  A(5 

10780 

03  ENBPART  PIC  . 

A  OCCURS  12. 


1 ’* /" -5  PROCEDURE  DIVISION. 

1<:790  ^ 

10792  is-  MAIN  PROGRAM  * 

10792  * 

1C-7Q3  * 

1  0795  BEG  I N— SEC  • 

10794  *  OPEN  INPUT  1  OUTPUT  FILES 

lOSOO  OPEN  INPUT  CDEF— INPUT— BASE— DATA. 

103 10  OPEN  INPUT  CDEF— INCODE. 

1 0S2r-  OPEN  OUTPUT  CDEP— OUTPUT-BASE— DAT A . 

10323  *  READ  NUMBER  Or  CODES  TO  BE  CHANGED 
1 0330  READ  CDEF’ —  I NC  ODE  AT  END  F’EF^FORTf  CODE — ERROR  - 

10840  MOVE  I CODE  TO  MUM. 

10845  '*  READ  THE  CODES  TO  BE  CHANGED  AND  THEN  CLOSE  THi 

10850  PERFORM  READ— CODE— FA  FA  VARY  I NO  I  FROM  1  BY 

10851  UNTIL  J  IS  GREATER  THAN  NUN. 

10840  CLOSE  CDEF- I NCODE. 

j  0345  READ  THE  BASE  DATA  FILE?  CHANGE  THE  CODES?  AND 
10844  *  THE  NEW  BASE  DATA  FILE 

10870  PERFORM  READ— CHECK— wR I TS— PARA  UNTIL  EOFSAI T( 


10851 
10840 
1 0345 

1 0870 


FIGURE  C-l.  CHC2DE  LISTING  (CONT'D) 


10875 
1 0330 
1 0390 

10895 

1 0896 
10397 

1 0393 

10901 

10902 

1 0903 

10904 

10905 

1 0906 

1 0909 

10910 
1 0920 

1 0925 

1 0926 

10931 

1 0932 
10^33 
10934 
10934 
1 0940 
1 0950 
1 0960 
10970 
J  0980 
1 0990 
1 0°'r'5 
20000 
20005 
20010 
20011 
20012 
10013 
20020 
20030 
20040 
20050 


*  CLOSE  THE  FILES  AND  STOP 

CLOSE  ODER- I NPUT-BASE-D AT A . 

CLOSE  CDEP-OUTPUT-BASE-DATA . 

STOP  RUN. 

# 

*  PARAGRAPHS  * 

•ST 

*  PARAGRAPH  USED  WHEN  THERE  IS  AN  ERROR  IN  THE  CHANGE 

*  CODE  FILE 
CODE-ERROR . 

DISPLAY  ■•♦♦ERROR  IN  CHANGE  CODE  FILE#*". 

STOP  RUN. 

* 

*  PARAGRAPH  USED  TO  READ  THE  CHANGE  CODE  FILE 
READ-CODE-PARA. 

READ  CDEP- INCODE  AT  END  PERFORM  CODE-ERROR. 

MOVE  I CODE  TO  CODE  (I). 

♦ 

*  PARAGRAPH  TO  READ  A  RECORD  FROM  THE  OLD  c-ASE  DATA  FILE? 

*  CHECK  IF  CODE  IS  TO  BE  CHANGED  AND  CHANGE  IT  IF  IS 

*  BY  USE  OF  PARAGRAPH  CHECK-SWITCH-PARA?  AND  THEN  WRITE 

*  THE  UPDATED  RECORD  ON  THE  NEW  BASE  DATA  FILE 

* 

RE AD-CHECK- WR I TE-PARA . 

READ  CDEP- INPUT-BASE-DATA 
AT  END  MOVE  1  TO  EOFSWITCH. 

IF  EOFSWITCH  =  0 

MOVE  IN-DATA  TO  CDEP-RECORD; 

PERFORM  CHECK-SWITCH-PARA  VARYING  I  FROM  1  Sr  3. 
UNTIL  I  IS  GREATER  T’ ‘AN  NUM ? 

MOVE  CDEP-RECORD  TO  OUT- DATA - 
WRITE  OUT-DATA. 

*  PARAGRAPH  USED  TO  COMPARE  THE  PNC  TO  ONE  THE 

*  CODES  ON  THE  CHANGE  CODE  FILE  AND  SWITCH  IT  FOR  THE 

*  AFSC  (WITH  THE  4TH  LETTER  CHANGED '  IF  A  MATCH  IS  MADE 
CHECK- 3 W I TCH-PAR A . 

IF  PWC  =  CODE  (I)  MOVE  AFSC  TO  N ENCODE ? 

MOVE  LETTER  (I)  TO  NCLETTER  (4), 

MOVE  NEWCODE  TO  PWC. 


FIGURE  C-l.  CHCODE  LISTING  (CONT’D) 
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100# 
1 1 03 


1203 
1 30$ 
t  4  03 
1413 
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FIGURE  C-5.  COBOL  RUN  TO  CREATE  AFSC  TAPE  (CONT’D) 
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UNWANTED  wCRKCENTER  (DIRECT) 

37552 

304546.4 

3-~*S 

unwanted  type-maintenance  CODE 

0 

0.0 

=  -•  4$ 

UNWANTED  QUEEN  BEE  INDICATOR 

0 

0.0 

1 

UNWANTED  WHEN-DISCOVERED  CODE 

0 

0.0 

i  1—  AS 

UNWANTED  3  DIGIT  WCR<<<JNIT  CODE 

0 

0.0 

!  ^ 

AN  -0C  ACTION  taken  CODE  =  E 

0 

0.0 

U-COESN’T  FI?  A  SPECIFIED  CGM9.  =PT. 

9 

0.0 

1  4— AS 

MAN— CJ°S  =  ZERO 

0 

0.0 

!  P-CD'.'I 

A I US  UNRECOGNIZABLE  Data 

12 

0.0 

ED  !v  5 

election  report 

5  4  » ’:DTSECT  ai!.- OURS  5£=QSTEO 

Sr  *CR*CTRS  N.JT  SOUND  IN  DIRECTIVES 
SC  SERI  ALL*  C  JTRi_EO  R£«OVE/ INSTALL 
«■'  SELECTED  map— }ijPS  REPORTED 
5E  S'-ECUl£C  INSPECTIONS  REPORTED 

?=  s=ec-al  inspection  reported 

5P  TCT^  agSS  RE=CRtED 
Sr  CA\M?3al!ZaTIQn  wO®*  REPORTED 


n 

37552 

009 

0 

0 

0 


0.0 

304546.4 

0.0 

0.0 

0.0 

'-.0 

0.0 

’.0 


!«SeC  to  r-p  COMBINATION  PROGRAM 
w..’C ;  i)ax»Y  f  SPEC.  INSPECTION  DATA) 
i;oOO-  iOTwgR  COM3.  RgPT  DATA) 


0.0 

0.0 


•  NO'" :  T-SSE  RECORDS  and  manmGuRS  ARE  REPORTED  IN  C-T^ER  ENTRIES  ON  T*!S  =E=OST 
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53SS 


sSSS 


SS3SSS 

3 

3 

S 

t 

s 


SSS3 
3  S 

S  3 

3  S 

S  5 

5SSS 


3 

S3 

3 

S 

s 

SS3 


S3 
S  3 
S  3 

ssssss 

s 

s 


ssss 


ssss 


S3SS 


SS$S«S5SSSS5SS3S5S3S5SS33SSSSSS5SSSSSSSSSSSSSSSSSSSSSSSSS$S5SSSS55SSSSS5SSSS$S55S 

33S3SSS3S‘<?*35533SSSSS33SSSSSSSSSSSSSSSS5SS3SSSSSSSSSS$SSSSSSSSSSSSSSSSSSS53SSS3 


—  3  0  — 


Date  09-10-31 


TIME  11.805 


ID  =  XL 
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C— 45 


=RUN  JG05A / CDEP/ JCL / P3 . JCL 
ENTER  FIRSTNAME  ? 

-NANCY  B 

ENTER  IDENT  ? 

=0520 1 1 N24 1 0  , 0S29UG00DWI N 
ENTER  INTAPE  ? 

=21436 


JOB  SUBMITTED 
SNUMB  #  1731U 
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SSSSS5S««'SSS5SSSSS=«5S5SSSS5SSSSSSS3SS5?SSSSS.<SSSSSS5SSS5SSSSSSS5SSSS$SSSSSS«5SS 
55SSS£«5 S$c5 ?eS;3S.*3F5SSSc35?SSSS5SSSSS5SSSSS5SSSSSSS55SSS3SS;S5SSSSSS5S5S3 5555SS 


cc 

« 

« 

5 

3SS 


$$$«;; 

S 

e 


ssss 
s  s 

ssss 
s  s 

s  s 

ssss 


s 

ss 

s 

s 

c 

sss 


ssss 


SSSSSSS5SSSSe<SSSSSSSSSS.«SSSSSSSSSSSSSSSSS5SSSSSS5SSSSSSS5SSSSSSSSSSSSSSSSSSSSSSS 

SSSSSSSSS-SSSSSScSSSSSSsSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSISSSSSSSSSSSSSS 


SS 

17*11* 

E**T{rQEQ 

C  at  05.307  =60“  TSS/S  0-OP-D6 

0001 

< 

1 75 1 U 

0002 

c 

COMMENT 

CS2=?»ISSS  7 SS  CARDIN 

0003 

C  L 

ySs=ic 

OS23‘3RISS$Saaa==e*»ce 

000  = 

5 

*•  nancy  3  ••  JG05A/C0E0/ JC!_/=3. JCl 

0005 

5 

..  RUNS  C0£=  SELECTION  REPORTS  PRCS: 

0006 

5 

stQTt 

..  ;N  PILE  J50SA/CDEP/CSTAO/P3.C 

■*007 

5 

IDEM 

OS201SN2«1D  , 6S2=USCuDftIN 

0006 

5 

*•'$?! 

-»L'LaS0RT.*CS»0S2026«645 

000= 

S 

V.'TE 

..  =  TRACS  TO  7  TRACK  T40£  >. 

0010 

AS 

UTILITY 

0011 

s 

i.IvI’S 

05# 1  OS  ..IK 

0C12 

5 

^5s? 

1,IU°UT  »EEL  =21036 

0013 

$ 

P’jTIl 

IN#  S  a  #  R£a/XK.  SA/ ,  COPT  / 1 F  / ,SE*/XN#  SA/ 

0013 

c 

TAPES 

IN.  530#.  21 436..  SEL. *<CS..»»= 

001? 

s 

T:*'7 

SA.TOC... .S0R7.»C5. ...» 

0016 

&:• 

N0SC« 

0G17 

5 

0=TI0*<5 

NG“ap 

001? 

AS 

EXECUTE 

001  = 

t 

U*!TS 

15.35S..1S 

0020 

c 

TA»=7 

3= . 7300. , , , SO=T ,»CS , . === 

0521 

5 

-Iu£ 

•  *  IS*  ?26l 

0022 

5 

-  IlE 

si , sir, i oor 

0023 

c 

=  lLz 

SP.S2R. 100R 

002a 

$ 

=  IlE 

S3.S3S.100S 

0025 

5 

0=710% 

?i3**P 

002? 

55 

SELECT 

J?05a/COSP/CSTaP/P3.£ 

0027. 

< 

OBJECT 

P/--NEISOC 

002  = 

•  5 

EXECUTE 

0030 

s 

l  TwTTS 

*  —  #  25^ »  •  6^- 

0031 

5 

*iLx 

71.T1R 

0032 

s 

ST SCUT 

LI  .  XL 

0035 

5 

S7SC-JT 

L2.XL 

063= 

€ 

EMCJOS 

Tflt 

COUMT  T 

-IS  J05  =  00C33R 

Cl7.32S"1239CSELRPT0C 


I  *  i  t  5 


*  3E5TN  iCT 
ISiSUT  $74=7=0 

Qojsirr--  5ts=t=o 


-I'M  -  U7IUI7 
*IT-*  =21536 

7in>s 


05/10/S!  5*=0I09Dw0P60PC 

PCS  "ILc  CODE  IS  SE  see  3Tt  APDSC  21536 
-05  =!*.=  COOS  Si  PE  600  3TL  irDSI 


SC  22731 


066535  1=1030  S==ni 5000600000 


=  jsSfc 

sh  35 


eoc;  o:2'e 

OvCI  SJ252 


00C 


FIGURE  C-12.  SAMPLE  SELECTION  REPORTS  RUN’  TO  FIND  ALL  AFSCS 
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l *  R  ni9i  • 


487 


0 


0 


62U  62UR  0-08-02 


list 

21  LINES  AT  STA.  XL 

PROCESSOR 

I/O  COSE 

TOTAL 

5  2. 1  a 

S  3.23  S  10.30 

S  15.67 

?£G t"  ACTIVITY  -Q4-  GELOAD  09/10/61  SW=000000000000 

*  NH9MAI.  TERMINATION  AT  033775  1=5000  SW=000000000000 


START 

1 1 .257 

LINES 

360 

PROC  0.0210 

I/O  0.017 

ID  5 

memory 

STOP 

11.313 

LIMIT 

61  aa 

LIMIT  0.1500 

LIMIT 

CU  27 

M*T 

S'.'iAP 

0.000 

LAPSE 

0.056 

PC  0 

TYPE 

SUSY 

IP/AT  FP/RT 

IS/aC  MS/aE 

ADDRESS 

T# 

T 1  2 

0191  * 

57567 

0  0 

2736  2736 

0-08-14 

M*  2 

0191  * 

403 

0  0 

28  ae 

0-08-08 

Ll 

SYOUT 

L2 

SYOUT 

P* 

SYOUT 

L*  2 

0191  * 

935 

0  0 

62a  62aR 

0-08-02 

LIST 

17 

LINES 

AT  STA. 

XL 

2C-01 

317 

LINES 

AT  STA. 

XL 

=  0-02 

26 

LIME  5 

AT  STA. 

XL 

PROCESSOR 

I/O 

CORE 

TOTAL 

S  .67 

S 

S 

1.60 

S  3. as 

Smr-'S  = 

17A1U, 

ACT  I VI 

T1  1  : 

01,  REPORT  CODE  =  S3,  RECORD  COUNT  =  00000a 

FIGURE  C-12 .  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  ( CONI' D) 


25K 

5505 


C-49 


1 7 a t u  oa  n«-to-ai 


1 1 .095 


FIGURE 


PREFACE 

PROGRAM  BREAK  117 
COMMON  LENGTH  0 

V  COUNT  BITS  5 

PRIMARY  SYMOEF  ENTRY 

.  0 

SECONDARY  5YMDEF  ENTRY 


BLOCK 

LENGTH 

1 

.SMA 

1 

a 

•  SMB 

1 

3 

•  SMC 

1 

SYMREP 

a 

•  SROT 

5 

. GACLS 

6 

.GAGET 

7 

.GAOPE 

10 

-GAPTS 

11 

.GAPUT 

ia 

•GCLSE 

13 

•ggtbk 

la 

.30UTL 

15 

.GREAD 

16 

.GWAIT 

17 

.SA9RT 

12.  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  (CONT'D) 
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1 7 8 1 U  OS  00-10-81 


1 1.0  =  5 


000000 

1 

800SM 

OOOOOO 

2 

SORT 

INOUT , ,  3 

00007a 

3 

FIELD 

C13 

000075 

a 

SE3 

A 1 

000078 

5 

FILC8 

INOUT, «»,S 

£=005  LINKAGE 

000113  000000000000  000 

•11)0110  333333333333  000 

8  ENO 

117  ?3  Th=  NeXT  AVAILABLE  LOCATION. 

5, MAP  yffPSICN/ASSE^l.T  9ATES  JMPA  730601 /05S373  JMP0  730601 /05S373  JMPC  730601/05S373 

THE=e  fE=E  NO  .-U5NINI5  FLAGS  IN  THE  ABOVE  ASSEMBLY 


FIGURE  012.  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  (CONT'D) 
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1781U  02  0C- 10-91  11.096 


octal  symbol  references  3Y  alter  no. 


£2 

GcCALL 

a 

1  06 

TNUU  7 

5 

a 

5 

c 

.C-ACLS 

2 

6 

.GARgT 

a 

7 

.SACP6 

a 

10 

.GAPT5 

2 

11 

.GAPUT 

a 

12 

•GCLSE 

a 

i  j 

.5GTSK 

a 

14 

.gcutl 

2 

IS 

.GREAO 

a 

16 

•  Gfl  A  X  T 

a 

17 

.5A9RT 

2 

74 

•  S>M 

•  4 

2 

3 

t 

.SM2 

a 

a 

3 

0 

.SA'AX 

i 

i 

? 

0 

.SPCX 

t 

i 

? 

0 

.3*0* 

1 

i 

2 

0 

•SRERP 

a 

3 

u 

1 

.SmplD 

3 

a 

3 

1 

.S**SE<J 

4 

a 

a 

4 

-3SPT 

2 

'  21K 

L  T M T T S  NEEDED 

FOR 

THIS 

ASSEMBLY 

SNlj'-'S  =  1 ?P 1 U»  4CTX''IT»  s  i  03,  »EPO»T  CODE  s  74,  RECORD  COUNT 


000021 


FIGURE  C-12.  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  (CONT'D) 


REPORT  SB  REPORTING  WIIHKCENIERS  NOT  FOUND  in  IfiORKCENTER-TO-AFSC  L I  SI  PAGE 

CflFM  31  AND  AMI)  H.I.S.  VERSION  |.|  REPORT  GROUP  TITLE  FIND  ALL  WHS 

****  SEE  liafB  INPUT  SELECTION  SUMMARY  REPORT  SOI  FUR  SELECTION  CRITERIA  **** 


REPORT  SU  REPORTING  WOBKCENTERS  NUT  FfltlNR  IN  WOHKCENTE R-TO-AFSC  LIST  PA5E 

c:nrt»  sianrahit  m.i.s.  version  i.i  report  group  title  finr  all  wcs 

*««*  SEE  USER  INPUT  SELECTION  8UMMART  REPORT  851  FOR  SELECTION  CRITERIA 


HE  Pont  nn  REPIlNIINIi  MDRKCFM1ERH  Mill  riMINtl  tM  MIRKCfi MtfiM -TO-AF SC  I.IST  PAtifi 

CIIKP  8IANHAPH  H.I.a.  VEKSHIN  1.1  HFPIIHt  liWOUP  1 1  TI.K  FtMII  AU.  WES 

««**  3F.fi  ll.Wt  IHPIII  AFFECT  It  IN  SUMMARY  RfiPIIIH  SOI  EUR  Sfil.FCltON  CRITERIA  **** 


C-60 


<ut:i 'i  it 


REPORT  SE  SCHEOULeD-INSPSCTION  WORK  REPORTED  FOR 

CDEP  STANDARO  H.I.S.  VERSION  1.1  REPORT  GROUP  TITLE  FIND  ALL  WCS 

**«•  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


NO  DATA  POP  THIS  selection  report 


FIGURE  C-12.  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  (CONT'D) 


C-64 


i 


RFPQRT  SF 

CDE°  STANDARD  H.I.S.  VERSION  1.1 

**»*  SEE  USER  INPUT 


SPECIAL-INSPECTION  WORK  REPORTED  FOR 
REPORT  GROUP  TITLE  FJNO  ALL  WCS 

SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


NO  DATA  for  TWIS  SELECTION  REPORT 

FIGURE  C-12.  SAMPLE  SELECTION  REPORTS  RUN  TO  FIND  ALL  AFSCS  (CONT’D) 


C-65 


REPORT  SG  T-C-T-C  *0Rk  REPORTED  FOR 

CPEP  STANDARD  H.I.S.  VERSION  1.1  REPORT  GROUP  TITLE  FIND  ALL  WCS 

**«*  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI  FOR  SELECTION  CRITERIA 


NO  DATA  FO=  THIS  SELECTION  REPORT 


***  ,CD£P  STANOARD  H.I.S.  VERSION  l.i 
**»  SELECTION  REPORT  PROCESSING  LOG  »»■» 

HOP  -&OOOOOOOOOOOOOPTNO  ALL  ACS  -CNTs  1 
HQS  -60000000000000  -CNTs  S 
HOR  -COOOftftOOOOOOOEOloPfeaSORTIES  -CNT=  37555 
HOR  -OOOOOOOOOOOOQOFINO  ALL  ACS  -CNTs  87556 
HOR  ”€00  00  <*0000  000  OP  I  NO  ALL  ACS  -CNTs  87557 
HQR  -SOOHOOOOOOOOOOFINO  ALL  ACS  -CNTs  87558 
H0»  -GOOOOOOOOOOOOOPINO  ALL  aCS  -CNTs  37550 
HOfi  -hOOOOOOOOOOOOOFI-ND  ALL  ACS  -CNTs  37560 
**.«-  P«*o  OF  PROCESSING.  INPUT  RECORO  COUNT  IS  -CNTs  37561 
•«**-  TQ7AL  SELECTION  REPORT  OUTPUT  PAGE  COUNT  IS  -CNTs  12 
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iK  . . . . . mi . . . . . 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

$SS5S53SSSSS5.5SSS5SS5SS553SSSSSSSSS55SSSSS5SSS5SSSSSSSSSSSS55SSSSSSSSSSS3SSSSSSSS 

S  5SSSSS  SSSS  S  3  S 

3S  3  S  S  S3  3  3 

3553  SSSS  3  S  5333  5  3  S  5333  SSSS 

S  S  S  5  S  3  3 

5  S  S3  5  S  3 

55S  3  SSSS  SSS  SSSS 

S5SSSSSSSS«SSSS<SSS55SSSSSSSSSSSS$SSSSSSSSSS$SS3SSSSSSSS$SS5SSSSSSSS3SSSSSSSS3SSS 

3SS$5S5SS5S55SSS3SSSS$?SSSSSSSSSSSSSS5SS5SSSSSSSSSSSSSSS5SSSSSS$5S5S$SSSS3SS3SS5S 

—  3  0  —  04T6  0<9-10-ai  TIME  11.800  It)  s  XL  C 
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100  REPORT  GROUP, TITLE, SEYMOUR-JOHNSON-AFB 
110  SORTIES, 7689 
120  REPORT, C2 
130  SRD, AFT 

140  WBC,A,C,D,E,F,H, J,K,N,P,Q,R,V,2,NAME,QN  AIRCRAFT  MTN 
150  CATEGORY  OF  LABOR, 1 , 2, 3, 4, S, 6 
160  TYPE  MAINTENANCE  CODES,  B,C,D,.J,S 
170  WORKCENTERS  TO  AFSCS 


180 

4E230, 423E3, 

FUEL  SYSTEM 

190 

4E240, 431E1 , 

REPAIR  & 

RECLAM. 

200 

4E250,423E2, 

EGRESS 

210 

46111,431X1, 

334 

A/C  FLT  * 

A” 

220 

46112,431X1, 

334 

A/C  FLT  ' 

'B” 

230 

46113,431X1, 

335 

A/C  FLT  1 

A** 

240 

4G114, 431X1, 

335 

A/C  FLT  * 

'B" 

250 

4G115, 431X1, 

336 

A/C  FLT  ’ 

A" 

260 

4G116, 431X1, 

336 

A/C  FLT  “ 

BM 

270 

426 A2, 426X2, 

334 

SPEC 

FLT 

"A” 

—ENGINES 

280 

42682,426X2, 

335 

SPEC 

FLT 

"B" 

—ENGINES 

290 

426C2, 426X2, 

336 

SPEC 

FLT 

"C“ 

—ENGINES 

300 

423A0, 423X0, 

334 

SPEC 

FLT 

“A" 

—ELECTRICAL 

310 

423B0, 423X0, 

335 

SPEC 

FLT 

"B" 

—ELECTRICAL 

320 

423C0, 423X0, 

336 

SPEC 

FLT 

"C" 

—ELECTRICAL 

330 

423 A4, 423X4, 

334 

SPEC 

FLT 

.•A" 

— PNEUDRAUL I CS 

340 

42364,423X4, 

335 

SPEC 

FLT 

"B" 

— PNEUDRAUL I CS 

350 

423C4, 423X4, 

336 

SPEC 

FLT 

"C" 

— PNEUDR AUL I CS 

360 

423A1, 423X1, 

334 

SPEC 

FLT 

"A" 

—ENVIRONMENTAL 

370 

42381,423X1, 

335 

SPEC 

FLT 

»B» 

—ENVIRONMENTAL 

380 

423C1, 423X1, 

336 

SPEC 

FLT 

"C" 

—ENVIRONMENTAL 

390 

328A0, 328X0, 

334 

SPEC 

FLT 

"A" 

—COMMUNICATIONS 

400 

32880,328X0, 

335 

SPEC 

FLT 

"B" 

— COMMUNICATIONS 

410 

328C0, 328X0, 

336 

SPEC 

FLT 

"C" 

—COMMUNICATIONS 

420 

328A1, 328X0, 

334 

SPEC 

FLT 

"A" 

—NAVIGATION 

430 

32881,328X0, 

335 

SPEC 

FLT 

— NAVIGATION 

440 

328C1, 323X0, 

336 

SPEC 

FLT 

"C" 

— NAVIGATION 

450 

328A4, 328X4, 

334 

SPEC 

FLT 

"A" 

—INERTIAL  NAVIGATION 

460 

32884,328X4, 

335 

SPEC 

FLT 

"B" 

—INERTIAL  NAVIGATION 

470 

32SC4, 328X4, 

336 

SPEC 

FLT 

"C" 

—INERTIAL  NAVIGATION 

480 

325A0, 325X0, 

334 

SPEC 

FLT 

“A" 

—AUTOPILOT 

490 

325B0, 325X0, 

335 

SPEC 

FLT 

"B" 

— AUTOPILOT 

500 

325C0, 325X0, 

336 

SPEC 

FLT 

"C" 

—AUTOPILOT 

510 

325A1, 325X0, 

334 

SPEC 

FLT 

"A” 

— INSTRUMENTS 

520 

32581,325X0, 

335 

SPEC 

FLT 

"B" 

— INSTRUMENTS 

530 

325C 1,325X0, 

336 

SPEC 

FLT 

"C" 

— INSTRUMENTS 

540 

321 A2, 321X2, 

334 

SPEC 

FLT 

"A" 

— WEAPONS  CONTROL 

550 

32182,321X2, 

335 

SPEC 

FLT 

"B* 

—WEAPONS  CONTROL 

560 

321C2, 321X2, 

336 

SPEC 

FLT 

«C" 

— WEAPONS  CONTROL 

570 

404 A 1,404X1, 

334 

SFEC 

FLT 

"A" 

— PHOTO 

580 

40481,404X1, 

335 

SPEC 

FLT 

”B" 

— PHOTO 

590 

404C 1,404X1, 

336 

SPEC 

FLT 

”C" 

— PHOTO 

600 

322A2, 404X1, 

334 

SPEC 

FLT 

"A" 

—SENSOR  (322X2  FUNC  COMB  W  404X1) 
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610  32262,404X1, 
620  322C2, 404X1, 
630  427 A5, 427X5, 
640  427B5, 427X5, 
650  427C5, 427X5, 
660  40131,462X0, 
670  40132,462X0, 
680  4G133, 462X0, 
690  4R1 10, 328X0, 
700  4R120, 325X0, 
710  4R130, 328X4, 
720  4R140, 404X1, 
730  4R150, 404X1, 
740  4R160, 423X0, 
750  4R170, 328R3, 
760  4R180, 321X2, 
770  4R320, 427X5, 
780  4R340, 427R0, 
790  4R350, 423X4, 
800  4R360, 423X1, 
810  END 


335  SPEC  FLT  UB“— SENS0R< 322X2  FUNC  COMB  W  404X1) 

336  SPEC  FLT  HCM— SENSOR< 322X2  FUNC  COMB  W  404X1) 

334  SPEC  FLT  MA” — STRUCTURAL  REPAIR 

335  SPEC  FLT  “B" — STRUCTURAL  REPAIR 

336  SPEC  FLT  "C" — STRUCTURAL  REPAIR 

334  WEAPONS  FLT 

335  WEAPONS  FLT 

336  WEAPONS  FLT 
COMM/NAV — 328X1 
AFCS/INSTR — 325 X 1 
INERTIAL  NAVIGATION 
PHOTO 

SENSOR <322X2  FUNC  COMB  W  404X1) 

ELECTRICAL 

ELECTRONIC  COUNTER  MEASURES 
WCS 

STRUCTURAL  REPAIR 
MACHINE  SHOP 
PNEUDRAUL I CS 
ENVIRONMENTAL 


* 


FIGURE  C-13.  BEST  GUESS  MAPPING  -  JG05A/CDEP/SEL.FRQG/SJ80. I  (CONT'Dj 
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100  REPORT  GROUP*  TITLE*  S. J. -WC-ALL 
110  SORTIES* 7689 
120  REPORT* 02 
130  SRD, AFT 

140  WDC*  A»B,C»D*E,F,G*H*  J*K,L*M*N*P*Q,R,S*T*U»  V*  W,  X*  Y, Z* 2,4* NAME, WDC.  1 
150  REPORT, C4 
160  SRD* AFT*  XFH 

170  WDC* A* B*C»D»E»F»G*H»J*K»L»M*N*P»Q»R*S*T,U»V*W*X*Y*Z*2»4* NAME* WDC. 2 
180  REPORT, C2 
190  SRD, XFH 

200  WDC*A*B*C,D,E,F*G,H* J*  K,L,  M*N*  P*  Q*  R*  S*  T,U*  V*  W,  X* Y,Z, 2*4, NAME, WDC. 3 
210  CATEGORY  OF  LABOR* 1*2, 3, 4* 5* 6 

220  TYPE  MAINTENANCE  CODES*  A*B*C*D*E»H*  J*P*Q»R*S*T*  Y 

230  WORKCENTERS  TO  AFSCS 

240  4E210*4E210*  INSPECTION  SECTION 

250  4E214*  4E214*  ENGINE  INSPECTION 

260  4E220*  427E1 ,  CORROSION  CNTRL 

270  4E230*  423E3*  FUEL  SYS. 

280  4E240*431E1,  REPAIR  &  RECLAM. 

290  4E250*  423E2*  EGRESS 

300  4E260*  4E260*  TRANS.  ALERT 

310  4E320*  4E320*  ARMAMENT  SYS. 

320  4G1 11*43101,  334  A/C  FLT  ”A" 

330  4G112*431G1*  334  A/C  FLT  **B" 

340  4G113,431G1*  335  A/C  FLT  "A" 

350  4G1 14*43101,  335  A/C  FLT  “B“ 

360  4G115*  431G1,  336  A/C  FLT  "A" 

370  4G1 16*43101*  336  A/C  FLT  "B” 

380  426A2*  426G2*  334  SPEC  FLT  "A" — ENGINES 

390  426B2*  426H2*  335  SPEC  FLT  "B“ — ENGINES 

400  426C2* 42612*  336  SPEC  FLT  "C" — ENGINES 

410  423A0*  423G0*  334  SPEC  FLT  "A" — ELECTRICAL 

420  423B0*  423HO*  335  SPEC  FLT  "B“ — ELECTRICAL 

430  423C0* 42310*  336  SPEC  FLT  “C* — ELECTRICAL 

440  423A4*  42304*  334  SPEC  FLT  "A" — PNEUDRAULICS 

450  423B4*  423H4*  335  SPEC  FLT  "B" — PNEUDRAULICS 

460  423C4, 42314*  336  SPEC  FLT  ”C" — PNEUDRAULICS 

470  423A1 *42301*  334  SPEC  FLT  "A* — ENVIRONMENTAL 

480  423 B1 *  423H1 *  335  SPEC  FLT  "B" — ENVIRONMENTAL 

490  423C1*  42311*  336  SPEC  FLT  "C" — ENVIROWOITAL 

500  328A0* 32800,  334  SPEC  FLT  "A" — COMMUNICATIONS 

510  32SB0*  32SH0*  335  SPEC  FLT  "  B "  —COMMON I  CAT  I ONS 

520  328C0* 32810*  336  SPEC  FLT  "C" — COMMUNICATIONS 

530  328A1* 32801*  334  SPEC  FLT  "A" — NAVIGATION 

540  328B1,32SH1,  335  SPEC  FLT  "B" — NAVIGATION 

550  328C 1  * 32S II,  336  SPEC  FLT  MC" — NAVIGATION 

560  328A4*  328G4*  334  SPEC  FLT  "A" — INERTIAL  NAVIGATION 

570  32SB4, 32SH4*  335  SPEC  FLT  "B" — INERTIAL  NAVIGATION 

580  328C4*  32814*  336  SPEC  FLT  "C" — INERTIAL  NAVIGATION 

590  325A0* 32500*  334  SPEC  FLT  "A" — AUTOPILOT 

600  325B0*325H0*  335  SPEC  FLT  "B" — AUTOPILOT 

FIGURE  C-14 .  ALL  INCLUSIVE  HAPPING  -  JG05A/CDEP/SEL.PR0G/SJ8Q.2 
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610 

325C0* 32510* 

336  SPE3  FLT  “3“ —AUTOPILOT 

f 

620 

325A1 *32531* 

334  SPEC  FLT  “A  “—INSTRUMENTS 

1 

630 

325B1 *  325H1 * 

335  SPE3  FLT  "B"— INSTRUMENTS 

i’ 

640 

32531*32511, 

336  SPE3  FLT  “O'* — INSTRUMENTS 

Fj 

650 

321A2, 32132* 

334  SPE3  FLT  "A" —WEAPONS  3NTRL 

660 

321B2*321H2, 

335  SPE3  FLT  "B"—  WEAPONS  ONTRL 

670 

321C2*  321 12* 

336  SPE3  FLT  "C“ — WEAPONS  ONTRL 

| 

680 

404A1, 40431, 

334  SPE3  FLT  “A" — PHOTO 

w 

690 

404B1,404H1, 

335  SPE3  FLT  "B:'— PHOTO 

i 

700 

40431*40411* 

336  SPE3  FLT  “8“ — PHOTO 

1- 

710 

322 A2 *32232, 

334  SPE8  FLT  “A" — SENSOR 

f 

720 

322B2* 322H2* 

335  SPE8  FLT  "B“ — SENSOR 

| 

730 

32232,32212, 

336  SPE8  FLT  "8“ — SENSOR 

1 

740 

427 A5*  42735, 

334  SPE8  FLT  “A" — STRUC.  REPAIR 

750 

427B5*  427H5, 

335  SPEC  FLT  "BM — STRUC.  REPAIR 

■■  • 

760 

42735*42715, 

336  SPEC  FLT  "C" — STRUC.  REPAIR 

770 

48131*46200* 

334  WEAPONS  FLT  J 

E 

780 

46132, 462H0* 

335  WEAPONS  FLT 

790 

43133*  46210* 

336  WEAPONS  FLT  J 

800 

4R1 10, 328R0, 

CGMM/NAV — 328X1 

810 

4R120*  325R0* 

AFCS/ I NSTR — 325X 1  1 

_ 

820 

4R130,328R4* 

INERTIAL  NAVIGATION  1= 

b 

830 

4R140*  404R1 , 

PHOTO 

L 

840 

4R150*  322R2* 

SENSOR 

E 

850 

4R160*  423R0* 

ELECTRICAL 

360 

4R170*  328R3* 

ELECTRONIC  COUNTER  MEASURES 

870 

4R180, 321R2* 

WEAPONS  CONTROL  1 

880 

4R181 *32182* 

RADAR  CALIBRATION  J 

1 

390 

4R210*  426R2* 

JET  ENG.  SHOP  | 

900 

4R220, 4R220* 

TEST  CELL  | 

• 

910 

4R310*427fc4» 

METAL  PROCESSING  *5 

920 

4R320, 427R5* 

STRUCTURAL  REPAIR  3 

930 

4R330*  427R3* 

SURVIVAL  E0. 

p 

940 

4R340*  427R0* 

MACHINE  SHOP 

E 

950 

4R350*  423R4* 

PNEUDRAUL I CS 

If1 

960 

4R360,423R1* 

ENVIRONMENTAL 

B 

970 

4R370* 427R2* 

NON-DESTRUCTIVE  INSP. 

980 

* 

END 

1 

j  i 

i  1 

1 

fl 

t  | 

FIGURE  C-14,  ALL. 

INCLUSIVE  HAPPING  -  JG05A/CDEP/SEL.PROG/SJ80.2  (COST’D) 

- 
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321R2  01 
321S2  01 
325R0  02 
32SR0  03 
328R3  04 
32SR4  05 
404R1  06 
322R2  06 
423E3  07 
423R0  03 
423R1  09 
423R4  10 
426R2  11 
4R220  1 1 
427R0  12 
427R2  13 
427R4  14 
427R5  15 
431E1  16 
4E320  17 


FIGURE  C-I5.  MASTER  OFF-EQUIPMENT  AFSC  LIST  - 

JG05A/CDEP/ILMMAP/SJ80 
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0132J.R2 
02325R0 
0332SR0 
04328R3 
0S32SR4 
06404R1 
07423E3 
0S423R0 
09423R1 
10423R4 
1 1426R2 
12427R0 
13427R2 
14427R4 
15427R5 
16431 El 
174E320 

«• 


FIGURE  C-16.  ACCEPTABLE  OFF-EQUIPMENT  AFSC  LIST  - 

JGQ5A/ CDEP / OFFMAP / S J80 
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01321X200000 
02325X000000 
03328R300000 
04323X000000 
05323X400000 
08404X100000 
07423E200000 
08423E300000 
09423X000000 
10423X100000 
1 1423X400000 
12426X200000 
1 3427ROOOOOO 
14427X500000 
15431 El  00000 
1 643 1 X 1 00000 
17462X000000 

# 


FIGURE  C-17 .  BEST  GUESS  CDEP  AFSC  .INDEX  FILE  - 
0S29/N241D/CDEP/WCMAP/SJ80 
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REPORT  GROUP  TITLE:  S.J.-WC-ALL 
LIST  OF  USER-SELECTED  SRD'S 
XFH, AFT 

REPORTS  TO  BE  OUTPUT  BY  COMBINATION  REPORTS  PROGRAM 
REPORT  COl 

SRD'S:  XFH, AFT 

WDC'S  (SPEC  INSPECTION  SET): 

BLANK 

REPORT  C22 
SRD'S:  XFH 

WDC'S  (WDC.3  SET): 

4»2?ZjViX^W9ViU?T?SiRj(il5P?Nj!v!TL»K?J?HiGiF7C?iJ?C7Ci7A 

REPORT  C31 

SRD'S:  XFH, AFT 

WDC'S  (WDC.2  SET): 

4,  2,  Z,  Y,  X ,  W,  V,  U,  T,  S,  R,  0,  F‘,  N»  M,  L,  K,  J,  H,  G,  F,  E,  D,  C,  B,  A 
REPORT  C41 

SRD'S:  XFH, AFT 

WDC'S  (WDC.2  SET): 

4 ,  ^ ,  a  ,  Y ,  X  ,  W ,  V ,  U ,  T ,  b ,  R ,  Q ,  P ,  N ,  M ,  L ,  K  ?  J ,  H ,  U ,  F ,  £ ,  D ,  C ,  tt ,  A 
REPORT  C21 
SRD'S:  AFT 

WDC'S  (WDC.l  SET): 

4,2,Z,Y,X)  W,  V,U,T,S,R,  Q,P,M,M,L,K,  J,H,G,F?£,D,C,B,A 


FIGURE  C-18.  CDEP  REPORT  INDEX  FILE  -  JG05A/CDEP /OUTPUT /P2. XI 
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0 1 .32 1 G200000 

0232 1 H200000 

033211200000 

0  432 1 R200000 

0532 1 S200000 

0  6 3 2 2 G 2 0 0 0 0 0 

07322H200000 

033221200000 

09322R200000 

1 0325G000000 

1 1325G 100000 

1 2325H0G0000 

13325H 100000 

143251000000 

153251100000 

1 6325R000000 

1 7323G000000 

133280 100000 

1 9328G400000 

2032SH000000 

2 132SH 100000 

22328H400000 

233281000000 

243281100000 

253281400000 

2 6 3 2 8 R 0 0 0 0 0 0 

27328R300000 

28328R400000 

294048100000 

30404H1 00000 

314041100000 

32404R 100000 

33423E200000 

34423E300000 

35423G000000 

36423G 100000 

374230400000 

38423H000000 

39423H 100000 

40423H400000 

414231000000 

424231100000 

43423 I 400000 

4  4  423RO00000 

45423R 100000 

46423R400000 

47 426G200000 

48426H200000 

49'*26 1 200000 

50*26R200000 


FIGURE  C-19.  ALL  INCLUSIVE  CDEP  AFSC 


5 1 427E 1 00000 
524270500000 
53427H500000 
544271500000 
55427R0000Q0 
56427R200000 
5/427R300000 
5S427R400000 
59427R500000 
60431 El 00000 
61 43 1G1 00000 
624620000000 
63462H000000 
644621000000 
654E2 1000000 
664E2 1400000 
674E26000000 
634E32000000 
6 94R 2 2000 000 

•s 


FIGURE  C-19.  ALL  INCLUSIVE  CDEP  AFSC  INDEX 


XXXXKXXX><>< 


£ 


f 


X 14220 
X 12220 

X 1  l^jLO 
X 1 Y220 
X 1X220 
X 1  -jJ220 
X1V220 
X 1 U220 
X 1 T220 
X 13220 
X1R220 
X  1 Q220 
X 1 P220 
X 1 N220 
X 1 M220 
X  11.220 
X * K220 
X1J220 
X1H220 
X 1 0220 
X1F220 
X1E220 
X 1 D220 
X 1 C220 
X1B220 
X1A220 
X 343 10 
X 323 10 
X3Z310 
X3Y3" 0 
X3X310 
X3W310 
3V310 
3U310 
3T310 
33310 
3R310 
30310 
3P310 
3N310 
3M310 
3L310 
X3K310 
X3.J310 
X3H310 
X  303 1 0 
X3F310 
X3E310 
X3D310 
X3C310 


FIGURE  C-20,  INDEX  FILE  -  JG05A/CDEP /OUTPUT /P7 ,Y3 


X3B310 
X3A3 1 0 
A34310 
A32310 
A3Z310 
A3V310 
A3X310 
A3W310 
A3V310 
A3U310 
A3T310 
A3S310 
A3R310 
A30310 
A3P310 
A3N310 
A3M310 
A31.310 
A3K310 
A3J310 
A3H310 
A3G310 
A3F310 
A3G310 
A3 03 10 
A3C310 
A38310 
A3 A3 10 
A 1 42 1 0 
A 1 22 1 0 
A1Z210 
A1Y210 
A1X210 
A1W210 
A1V210 
A3 11210 
A1T210 
A 1 32 1 0 
A1R210 
A 102 10 
A1P210 
A1N21C 
A 1 M2 10 
A3L210 
A1K210 
A3. 3210 
A3  H21 0 
A1G210 
A1F210 
A1E210 
AJD210 
A 1 02 10 
A1B210 


FIGURE  C-20 


1  1Q##S, R<XL)  8, 16,58 

120$: NOTE:  **  2<FIR3TNAME.  **  JG05A/CBEP/JCL/DB. CRE 
130$: NOTE:  **  THIS  ODER  RUN  CREATES  DATA  FOR  DAVE  ** 

140$: NOTE:  **  HIST#  =  BASE  HISTORY  TAPE  #  ** 

150$: NOTE:  **  CQMBNAME  =  COMBINATION  DATA  FILE  NAME;  COMB+BASE  NAME  ** 
160$:  NOTE:  **  NAME  =  BASE  HISTORY  TAPE  NAME  ** 

170$: NOTE:  -**  BASENAME  =  NAME  OF  THE  BASE  ** 

180$  I  DENT  S'.  I  BENT.  USERQ1 

1 90$ : MSUl :  4 ,  GET  REEL  1  =  SCHIST#.  FOR  INPUT 

200$ s MS Ul s 4 ,  GET  REEL  2  *  S«HIST-#-2.  FOR  INPUT 

210$:  MSG  1 : 4,  ULGStCOMBNAME. ,  0S2926, 045 

220$  s  OPT I ON : NOMAP 

230$: SELECT: . JG05 A/ CDEP/C3TAR/P2. C 

240$: EXECUTE 

250$: LIMITS: 120, 35K, ,5K 

260$:  TAPES:  DA,  D1DD, ,  StHIST#. ,  ,-%NAME. , ,  ### 

270$: DATA: DI 

280$: SELECTA:  JG05A/CDEP/SEL.  PROG/&DIRCTVS.  ' 

290$: FILE: B4, NULL 
300$:  SYSOUT: SO, XL 
310$: SYSOUT: SI , XL  • 

320$: SYSOUT: BL, XL 

330$: PRMFL: X 1 , W, S, UG05 A / CDEP / OUTPUT / P2 . X 1 

340$: PRMFL:  X2,  W,  S,  0S29 / N24 1 D / CDEP / WCM AP / StBASENAME . 

350$:  PRMFL:  X3,  W,  S,  -JG05 A / CDEP / OUTPUT / P2 .  X3 
360$:  TAPES: CO, C1DD, , , ,  StCOMBNAME. ,  , *** 

370$: TAPES: SR, S1DD 
380$:  FILE:  RJ,  NULL 

390$: NOTE:  **  RE-RUN  CDEP  USING  SAME  BASE  HISTORY  DATA  AS  BEFORE  ** 
400$: NOTE:  **  BUT  DIFFERENT  DIRECTIVES  TO  CREATE  DATA  FOR  THE  ** 

4 10$:  NOTE:  **  ANALYSIS  PROGRAM  ** 

420$: NOTE:  **  DIRCTVS2  =  DIRECTIVES  TO  USE  FOR  ANALYSIS  f-nOGRAM  *•* 
430$: OPTION! NOMAP 

440$: SELECT: JG05A/CDEP/CSTAR/P2. CPY. C 

450$: EXECUTE 

460$: LIMITS: 120, 31K, ,5K 

470$: TAPES: DA, D1DD, , «HIST*. , , &NAME. , , ### 

480$ : DATA: DI 

490$:  SELECTA:  JG05A/CDEP/SEL.  PROG/3tDIRCTVS2. 

500$: FILE: B4, NULL 
510$: SYSOUT: SO, XL 
520$ : SYSOUT : S 1 , XL 
530$: SYSOUT: DL, XL 

540$: FRMFL: X 1 , W, S, JG05A/CDEP/0UTPUT/P2. X 1 

550$: PRMFL: X2, W, 3, JG05A/CBEP /OUTPUT /P2. X2 

560$:  PRMFL:  X3,  W,  S,  -JG05A / CDEP / OUTPUT / P2 .  X3 

570$: TAPES: CO, C1DD 

580$ : TAPES : SR , 3 1 DD 

590$: TAPES: KN, TIC 

600$:  FILE:  R-J,  NULL 

610$:  GOTO:  I LM  ( T/F )  .  I 


FIGURE  C-21.  JCL  LISTING  -  JG05 A/CDEP / JCL / DB . CRE 


620$  Tl. 

630$: OPTION: FORTRAN, NOMAP 
640$ 2  FORTRAN: NFORM, NLNO, XREF 
630$:  SELECT  A  :  J605A  /  CBEP/DET .  REC 
660$: EXECUTE 
670$: LIMITS: 10, 13K, »5K 

630$: PRMFL: 02, R, S, JG05 A / CDEP / OUTPUT/ P2 . X2 
690$:  PRMFL:  03,  R,  S,  J00SA/CDEP/0FFMAF‘/??3ASE— OR— N, 
700$:  PRMFL:  04,  R,  S,  JG05A/CDEP/  ILMMAP/S-cBASE-OR-N, 
710$: TAPE9:01,T1D 
720$: DATA: 05 
730&#— MDS— ES. 

7 40&A/  C— SRD  (  S )  - 
750?<ENG-SRD(S) . 

760?<#S0RTIES. 

770S<  I LM  ( T/F  >  . 

730$: GOTO: END JOB 
790$  FI. 

300$: OPTION: FORTRAN, NOMAP 
310$: FORTRAN: NFORM, NLNO, XREF 
320$: SELECT A: J005A/CDEP/DET. REC 
330$: EXECUTE 
340$: LIMITS: 10, 13K, , 5K 

350$: PRMFL: 02, R, S, JG05A/CDEP/OUTPUT/P2. X2 
360$:  PRMFL:  03,  R,  S,  JG05A/CBEP/0FFMAP/8:BASE-0R-N, 
370$: PRMFL: 04, R, S, JG05A/CDEP/ 1 LMMAP/&3ASE-0R-N . 
330$: TAPE9: 01 , TiD 
890$: DATA: 05 
900&S-MDS-ES . 

91  OS;A/C-SRD  <  S ) . 

9 2 0 ?<  EN  G  -  S  R  D  ( 3  >  . 

9302<#S0RTIES. 

940& I LM  <  T / F ) , 

950$: END JOB 


FIGURE  C-21.  JCL  LISTING  -  JG05A/CDEP/JCL/DB.CRE  (CONT*^ 
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“!,UN  JG05A/CDEP/ JCL/DB.  CRP 

ENTER  FIRSTNAME 

y 

=nancy  b 

enter  I dent 

y 

-0S2011N241D  j OS29UGOOBUTN 

ENTER  HIST# 

o 

=27737 

ENTER  HIST-# -2 

y 

=27588 

enter  combname 

y 

“CO.SJSO 

ENTER  NAME 

y 

=SJ-AFSC 

ENTER  DIRCTVS 

y 

=SJ80. 1 

enter  basename 

y 

=SJ80 

ENTER  DIRCTVS2 

y 

=SJ80.2 

ENTER  ILM(T/F) 

y 

=T 

ENTER  base-or-n 

y 

=SJ80 

ENTER  #— MDS-ES 

y 

=  1 

ENTER  A/C-SRD(S) 

y 

=AFT 

ENTER  ENG— SRD(S) 

y 

=XFH 

ENTER  #SORTIES 

y 

=  7689 

JOB  SUBMITTED 

SNUMB  #  7020U 

FIGURE  C-22. 

SAMPLE  SUBMISSION  OF  JCL  WHICH 

SSSSSSS$SSSSS55SS3$55iS«SSS5SS5$SSS$SS5SS$SSS$$5$SS5SSS5$SS5SSSSSSSSSSS5SSSSSSSSS 

$SSSS555cS$S5553S5S35355S555$5S5SS5SS5.$5S$S5$SS5SS55S$SSSSS$SS5SSSSSSS5S55S55SSS3 


ssssss 

c 


SSSS 

s  $ 

3  3 

3  3 

3  S 

5SSS 


sss  s 

S  3 

s 

sss 

s 

ssssss 


5S5S 

s  s 

s  s 

s  s 

s  s 

ssss 


ssss 


$55 SSS 5 SSS * S 5$ S $S S5 SS 55 SSS SSSS SSSS SSSS SSSSSSS SSSS SSSS SS3SSSSSSSS SSSS SSSSSSS SSSSSS 
555S5S35S 5 5S5S5SS SSSS S5SSS5S SSSSSS SSS SSSSSS SSSS SSSSSSSSSS5SSSS$SSSSS55S$SSSSSSSSS 


ss 

702u<l 

ENTERED  C 

at  11.112  from  TSS/S  0-08-10 

OOOJ 

$fJUM9 

7G29U 

0002 

S 

cs“*<eMT 

OS2R0R IGGS  TSS  CARDIN 

0003 

5  5 

■JS£=IC 

CS2R8R IS5SS3aaaaasaaa 

040a 

s 

NOTE 

.*  NANCY  a  •*  JS95A/CDEP/ JCL/DB.CSE 

■ions 

5 

*<CT£ 

••  THIS  COE?  SUN  CREATES  DATA  FQR  DAVE  •* 

9406 

3 

^C*T5 

**  MlSTa  =  9ASE  HISTORY  Tasf  a  •• 

•3007 

5 

»*  CC-HSNAHE  s  COMBINATION  DATA  FILE  NAME;  C0"8-*dASE  NAME  •» 

0009 

$ 

NOTE 

•  *  NAME  =  2asE  HISTORY  TAPE  NA**E  *• 

5 

%0T€ 

**  HASENAHE  3  NAPE  0?  the  3ASE  •* 

0010 

5 

IOENT 

OS201 1N2O10  ,CS2RUG00C>»IN  USEROI 

0011 

s 

'*SSI 

a. GET  REEL  1  =  27737  FCR  IN“UT 

0012 

5 

•^SOl 

a. GET  PEEL  2  =  27588  FOR  INP-jT 

0013 

5 

^SGJ 

u . ULGCO . S J 80 . GS2Q26 . 0«5 

0014 

$ 

OPTION 

-<C*HA  P 

0015 

s$ 

SELECT 

J605A/C0EP/CSTAR/P2.C 

0016* 

$ 

CSjECT 

-•/S-HEISOO  C17.2aooi2380SEL£COOO 

0010 

as 

EYECuTE 

0O1O 

5 

LIMITS 

120. 35*., 5* 

0020 

$ 

TAPER 

0*. 0100., 27737,, SJ-AFSC,.*»s 

0921 

s 

DATA 

01 

0023 

3 

p-lS 

3 3, NULL 

0023 

5 

STSuUT 

30,  <i. 

0024 

5 

SYJGUT 

Sl.YL 

0025 

5 

SYSGuT 

9L.AL 

0025 

5* 

5RS»FL 

Y!,t,5,JS05A/CDE?/0UTP'jT/P2.xt 

002" 

55 

X2,.5.S,GS29/N2«1O/C3E?/*iCMAP/SJ0O 

002« 

S'8 

S  y  W?  ^ 

Y3,.y.S,  jS05A/CDEP/OUTP'JT/P2.X3 

00c<J 

« 

T 

CO »ulOO# *  0 0 CD *5J90 *  »*t* 

0033 

T.\?£  9 

3*  #  3 1 OD 

0031 

« 

r  IL: 

9 J •NULL 

0035 

5 

*.0?= 

»*  RE-RUN  COEP  USING  SANE  3ASE  hISTCRT  DATA  AS  3EEGRE  •* 

3033 

5 

NOTE 

•*  =yT  OIPPERENT  DIRECTYyES  TO  CREATE  OaTa  for  the  ** 

003a 

«k 

NOTE 

**  ANALYSIS  PROGRAM  «* 

0035 

NOTE 

•*  0IRCTOS2  =  DIRECTIVES  TO  USE  FOR  ANALYSIS  PROGRAM  ** 

0035 

< 

O-TIOfi 

HQUAS 

0037 

S3 

1505 A /CDEP/CST  *R/“?.C?Y.C 
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5 
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00a3 

5 

-DATA 

D! 

0044 

5 

“ILE 

•54,  .NULL 

0045 

5 

S7SQUT 

50.  XL 

0046 

< 

5  V SOUT 

SI, XL 

0047 

c 

SYSGUT 

DL»  XL 

004? 

5$ 

S3MFL 

Xl,rt,S, JG05A/C0EP/0UTPUT/P2.X1 

0049 

ss 

COMF1. 

X2,o,S, JG05A/CDEP/0UTPUT/P2.X2 

0050 

S3 

3BMFL 

X3,;»,S,  JG05  A/ COEP /OUTPUT /P2.X3 

0051 

5 

TAPE9 

CQ.C10D 

0052 

X 

TAPE9 

SB, SI  00 

0053 

5 

TAPER 

XN, TIC 

0054 

5 

FTLE 

B J , NULL 

0055 

S 

GOTO 

T 1 

0056 

5 

T  1  . 

0057 

a 

OPTION 

FOR TB AN, NOMAP 

0058 

A$ 

FOB TRAN 

NFQSM.NLNG.XBcF 

0059 

AS 

EXECUTE 

0060 

$ 

LIMITS 

10,1?K,,SK 

0061 

>3 

PBMFL 

02, B, 5, JG05A/C06P/0UTPUT/P2.X2 

0062 

SS 

coupL 

03,B,S, JG05A/CDEP/0FFMAP/SJ80 

006S 

5? 

PRMFL 

.  Oa,B, S, JR05A/COEP/ILMKAP/SJ80 

0064 

S 

TAPE? 

0 1 ,  T 1 0 

0065 

« 

DATA 

05 

0066 

3 

GOTO 

EN0JG9 

0067 

S 

Fl. 

0063 

5 

OPTION 

FOR TP AN, NOMAP 

0069 

AS 

FORTRAN 

NFOBM,J»L7jO,  XBEF 

0070 

AS 

EXECUTE 

0071 

5* 

LIMITS 

10.13K..5K 

0072 

55 

pbmfl 

02.3.S,JG05A/C0EP/0UTPUT/P2.X2 

0073 

S3 

3SUF-. 

<J3,B,S,JG05A/C0EP/CFFMAP/SJ80 

0074 

53 

SOmFl 

04, R, S, JG05A/C0EP/ILMMAP/S480 

-0375 

5 

TA  ==9 

Ol.TiO 

007*. 

c 

DATA 

05 

0077 

S 

“10.105 

TOTAL  Cl'*:-  COUNT  THI5  JOS  =  002353 


*  5EST'*  iCTI^tT”  -«1-  S2L0AO  09/09/81  54=010000000000 
tfjPlir  START**  S-TW  =27737  FOP  FILE  COOE  OA  3E  600  3TL 
OPERATOR  -IT«  =22397  FOR  FILE  CODE  SB  S£  *00  3TL 
OPS' A 70s  StiPTFO  .,TTW  350566  FOB  FILE  COOE  CO  St  600  3TL 
INP”7  CCNTtsuE?  *!?«  337588  FOB  FILE  COOE  OA  SE  &00  STL 


»  TERMINATION 


AT  051641  1=5000  54=010000000000 


iFDSC  27737  27737 
AFDSC  22397  22397 
AFOSC  20566  20566 
AFDSC  27588  27737 


0001  81251 
0001  51252 
onoi  81252 
0002  81251 


000 

000 

000 

000 


START  10.456 
ST-tp  SC. 210 

S'A p  o.ooo 

LAPSE  0.720 


?  U 

SC¬ 

SI 

C-L 

*? 

/3 

CO 

SB 

BJ 

3* 


LINES 

L*f*IT 

291 

5120 

PPOC  0.5142 
LIMIT  1.2000 

I/O 

LIMIT 

0.100 

IU  5 

CU  5 

0  TfP£ 

3USY 

IP/AT  FP/ST 

IS/3C 

J*S/*E 

AODSESS 

7* 

'  0191 

♦ 

70 

0  0 

a 

a 

0-08-»0$ 

B  Ol«l 

* 

929 

0  0 

?a 

74 

0-08-06 

0  TAPO 

NULL 

31:43° 

t 

0/00 

0  0 

23633 

w 

0 

w 

0-16-05 

0-00-00 

*Z?7'*7 

STOUT 

SYOyT 

SYOuT 

9  0191 

P 

42 

0  0 

13 

13 

n«08-16 

9  019! 

3 

2° 

3  0 

1 

1 

0-08-16 

9  0191 

3 

13 

0  0 

13 

13 

0.00.16 

0  TA3Q 

15377 

0/00 

1301 

0 
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0  TSP9 
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• 
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* 
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LIST 

57  LINES 

at 

STA. 

xu 

PC-a  3 

A?  LIMES 

AT 

sta. 

*w 

JC-0*. 

11=  LIMES 

AT 

STA. 

XL 

PC -00 

36  LIMES 

AT 

sta. 

XL 

PROCESSOR 

I/O 

cc 

RE 

total 

S  16.45 

S  5. 30 

5  5a. 

9a 

S  77.26 

SYST£«  iriTEPPUPTIGN,  JOB  RESTARTED  H£PE 


•  ScGIM  ACTIVITY  -o?-  GELQAD  00/10/81  SW=010000000000 


input  started  .sjth 
0®£9a T."»  STlSTcD  A;T 
OPERATOR  started  .tl? 
OPERATOR  STARTED  *IT> 
INPUT  CONTthUEO  -»iT* 
*  NORMAL  TERMINATION 


START  0.2*5 
STOP  1.273 
S.iAP  0.000 

LAPSE  0.9R5 


.«ITh  327737  FOP  FILE  CODE  V*  S£  600  BTl 

AiT*  *21020  SQR  PILE  CODE  *R  5c  600  3TL 

yI?m  =21953  POP  FILE  CODE  CO  Sc  600  BTL 


AT  010261  1=5000  SM=Q10000000000 


LIMES 

LIMIT 


PPOC  0.7334 
LIMIT  1.2000 


FC  <1  TYPE 
01  P  Oi«i  » 

P*  P  0101  • 
DA  0  TAPP 
3a  MULL 

50  SYGUT 

51  SYOuT 
OL  SYOilT 
*1  P  .9101  P 
*2  P  DIP!  P 
*3  P  31 °1  P 
CO  0  TAPP 
3B  0  TAPP 
.<«  C  TJPP 
-»J  MULL 
P*  STOUT 
L®  3  D1P1  * 


=3 

907 

316368 

3 


5a 

33 

10 

27060 

43207 

=561 

X 


AFSSC 

27737 

27737 
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21020 

21O20 

0G01 

81253 

0  0-3 

AFDSC 
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21053 

3001 

81253 

000 

AFDSC 

22771 

22771 

0C01 

ai2S3 

000 

aFOSC 

27586 

27737 

0002 

61251 

000 

;/0 

0.112 

Ty 

c 

MEMORY 
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c! 

c 

M»? 

1 16292 

IS/=C 

MS/*£ 

ADDRESS 

Ts 

5 

0-06 

-06 

74 

?3 

0-06 

-06 

2333P 

0 

0-16 

“32 

*2773? 

* 

• 

0-00 

-00 

13 

13 

0-08 

-16 

* 

1 

0-0* 

-16 

13 

13 

o-ee 

-16 

1013 

0 

0-16 

-03 

=21053 

3187 

0 

0-16 

—04 

*21923 

685 

0 

0-16 

-05 

=22771 

• 

• 

0—30 

-00 

62a  62sp  8-06-92 
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53 
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XT 

STa. 

XL 

sr-ax 

99 

l"iE3 

XT 

STa. 

*L 

AC-01 

!  ai 

lImES 

XT 

sta. 

XL 

—  C  •Till 

39 

LIMES 

XT 

sta. 

XL 

I/O 

f- 

nog 

TOTAL 

S3. a? 

S  6.57 

S  60 

.13 

S  50.1? 

5CAP0  sfines  IS  TRUE.  5;«=01300009000fl,  5*1°  TO  Tl 

E5T-.  ACTIVITY  -03-  FORTY  00/10/6!  S*=319202n00000 

sn3-4AL  termination  it  005U4  1=4060  Se=31 02O2000000 

START  1 .287  LIMES  ais  PpQC  0.0010  I/O  9.000 

STC»  U?*«  LIMIT  12000  LIMIT  0.0500  LIMIT 

SWA®  O.'lOO 

LAPSE  0.002  =C  D  TYPE  auSY  IP/AT  FP/PT  IS/=C  MS/»E 

00  3  TaPP  9830a  5/00  0  0 

5*  P  Ol°I  •  290  0  0  12  12 


IU  5  m£**OPt 

Cu  5  m.t 

AODPESS  T* 

0-16-05  =2«77j 
0-06-06 
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P*  SYQUT 

*1  9  0191  *  0 
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C*  SYC'UT 
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LIST  918  LINES  AT  STA.  XL 


PROCESSOR 
S  .03 


I/O  CORE  TOTAL 

1.63  S  1.69  S  3.35 


*  8EGIN  ACTIVITY  -OP-  GELOAO  00/10/81  SW=010000000000 
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M*T 
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P* 
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* 
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• 

XL 
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FIGURE  C.-23.  SAMPLE  CDEF  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


C-90 


«**  unuseable  afoboa  record  -  last 


snu«9  =  Toaou,  ACTIVITY  3  =  01* 


3  4  4  »*»«»»*«»»**»**»***»********* 

600  RECID 

REPORT  CODE  =  43,  RECORD  COUNT  =  00008? 


CDEP  STANOARD  H.I.S.  VERSION  1.1 

REPORT  SOa  LOG  OF  USER-INPUT  DIRECTIVES  PAGE  1 

REPORT  GR'.UP  TITLE-NOT  DEFINED 

REPORT  GROUP, TITLE  *  SEYMOUR- JOHi.jON-AF8 
SORTIES, 7P8R 
REPORT, ca 
SRD, AFT 

W0C,A,C,0,E,F,H,J,i<,N,P,fJ,S,V,2,NAME,0N  AIRCRAFT  MTN 
CATEGORY  OF  LA80R, 1, ?, 3, a, 5, 6 
TYPE  MAINTENANCE  COOES , 3, C , 0 * J , S 


.yorkcentf3<5  ro 

4E230,4??E3. 

4E240,a3tEl, 

4F.2S0,a23E2, 

UGl 1 1 ,431 <  1 , 
4Glia,a31*l, 

«G1 ,3,a3l<l, 

4G 114, 4*1*1, 
4GU5, 431X1, 

4Gl 16,431X1* 
426A?,aa6Xa, 

AFSCS 

FUEL  SYSTEM 
REPAIR  *  RECLAM. 
EGRESS 

334  A/C  FLT  "A" 

334  A/C  FLT  "B" 

335  A/C  PLT  HA“ 

335  A/C  FLT  “B* 

336  a/C  FLT  "A" 
336  A/C  FLT  "9" 
334  SPEC  FLT  “A" 

—ENGINES 

42862,436*?, 

335 

SPEC 

FLT 

“3" 

—ENGINES 

ua^cp.aafc*?. 

336 

SPEC 

FLT 

"C" 

—ENGINES 

423AO , 423*4 , 

334 

SPEC 

FLT 

«  4  M 

—electrical 

42390-423*0. 

335 

SPEC 

FLT 

"3  " 

—ELECTRICAL 

423C0 , 4?3xn , 

336 

SPEC 

FLT 

"C" 

—ELECTRICAL 

423Aa,uP?xa, 

334 

SPEC 

FLT 

"A" 

— PNE'JORAULICS 

423B4, a?J*o , 

335 

SPEC 

FLT 

"S" 

— PNEliORAULICS 

423C4, 423*4, 

336 

SPEC 

FLT 

"C" 

— PNE'JORAULICS 

423A1 ,a?3*l. 

334 

SPEC 

FLT 

"A" 

—ENVIRONMENTAL 

42391,423*1 . 

335 

SPFC 

FLT 

"8" 

—ENVIRONMENTAL 

423C1, 422*1 . 

316 

SPEC 

FLT 

"C 

—ENVIRONMENTAL 

329A0, 326*0, 

33a 

SPEC 

FLT 

"A" 

—communications 

32860, 3?«*o, 

335 

SPEC 

FLT 

"3  “ 

—COMMUNICATIONS 

329C0, 325*0, 

336 

SPEC 

FLT 

"C" 

—COMMUNICATIONS 

329  A 1 , 328  *o , 

334 

SPEC 

FLT 

"A" 

— NAVIGA TICN 

32381,323X0, 

335 

SPEC 

FLT 

"B" 

—NAVIGATION 

32aC 1,328*0, 

336 

SPEC 

FLT 

H  £  fl 

—NAVIGATION 

323AU , 3? A*a , 

334 

SPEC 

FLT 

»  $  « 

—inertial  navigation 

32394,32**4, 

335 

SPEC 

FLT 

"9  rt 

—INERTIAL  NAVIGATION 

32SC4 , 32®  <4 , 

336 

SPEC 

FLT 

"C 

—  inertial  navigation 

325A0,  325<ii , 

33« 

SPEC 

flt 

"JH 

—  AUTOPILOT 

32580,325*0, 

335 

SPEC 

Fl. 

‘9M 

—  AUTOPILOT 

325C0, 325*0, 

336 

SPEC 

PLT 

r  h 

—  AUTOPILOT 

325A1, 325*0, 

334 

SPEC 

FLT 

•* l M 

—  INSTRUMENTS 

32561,325*0, 

335 

SPEC 

PLT 

M3M 

—  INSTRUMENTS 

325C1, 325*0, 

336 

SPEC 

flt 

rt 

—  INSTRUMENTS 

32142,321*2, 

334 

sp.-c 

=  LT 

*A" 

—WEAPONS  CONTROL 

32192,321*2, 

335 

SPEC 

flt 

"9" 

—WEAPONS  CONTROL 

321C2, 321*2, 

336 

SPEC 

PLT 

"  c H 

—WEAPONS  CONTRCL 

40441,404*1 , 

334 

spic 

FLT 

"A" 

—PHOTO 

4049 1 ,404X1 , 

335 

SPEC 

PLT 

"5" 

—PHOTO 

404C1, 404*5 , 

336 

S0CC 

PLT 

ft  £  M 

—PHOTO 

FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT’D) 
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CDEP  STANDARD  H.I.S.  VERSION  l.l 

REPORT  soa  LOG  OF  USER-INPUT  DIRECTIVES  PAGE  3 

REPORT  GROUP  TITLE-SETMOUR-JOHNSON-AFB 

322A2,404Xt.  33a  SPEC  FLT  "A"— SENSOR (322X2  FUNC  COMB  rt  404X1) 

32232.40(1X1  ,  335  SPEC  FuT  “B”  —  SENSOR  (322X3  FUNC  COMH  w  404X1) 

322C2, 404X1  ,  336  SPEC  FLT  "C"  — SENSOR (322X2  FUNC  COMB  *  404X1) 

427A5, 427X5,  334  SPEC  FlT  "A* — STRUCTURAL  REPAIR 

427PS, 427X5,  335  SPEC  FLT  "8"— STRUCTURAL  REPAIR 

42705,427X5,  336  SPEC  FL.T  "C"--STRUCTURAL  REPAIR 

4G131 ,462X0.  334  WEAPONS  FLT 

4G132, 462X0,  335  WEAPONS  FLT 

4G133, 462X0,  336  WEAPONS  FLT 

4R110, 328X0.  CQMM/nav — 328X1 

4R 1 20 . 325X0  ,  AFCS/INSTR— 325X  1 

4R130, 32854,  INERTIAL  NAVIGATION 

4P140, 404X1,  PWQTO 

4R150, 404X1  ,  SENSOR (322X2  fijnc  COMB  w  404X1) 

4R160, 433X0.  ELECTRICAL 

4R 1 70 , 328R3,  ELECTRONIC  COUNTER  MEASURES 

4R180, 321X2,  flCS 

4R320, 427X5,  STRUCTURAL  REPAIR 

4R340,427R0,  MACHINE  SHOP 

4P350 » «H3X  a ,  PNEUORAULICS 

4R3H0, 423X1,  ENVIRONMENTAL 

ENO 

£N9  OF  PROCESSING  72  USER-OIRECTIVES 
SNIIM0  s  7020U,  ACTIVITY  a  a  01,  *EnORT  CODE  =  01,  R6C0R0  COUNT  =  000114 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


COEP  STANOARO  H.I.S.  VERSION  1.1 

REPORT  SOI  USER  INPUT  SELECTION  SUMMARY  PAGE  1 

REPORT  GROUP  TITLE-SEYMOUR-JOHNSON-AFB 

mos  value;  from  user  -**none*-,  frcm  'b«'  data  -»*none»- 

MO.  Qp  SORTIES  =  7639 

MO.  OF  FL * ING-HOURS  =  **NONE*» 


'.YORK  CENTER  TO  AFSC  CONVERSIONS 


321A2 

321X2 

32182 

321X2 

321C2 

321X2 

322A2 

U04X1 

32282 

aoaxi 

322C? 

904X1 

325A0 

325X0 

32SA1 

325X0 

32530 

325X0 

32591 

325X0 

325C0 

325X0 

325C1 

325X0 

32640 

329X0 

32?A  l 

329X0 

32SA4 

328X4 

32AB0 

328X0 

32691 

323X0 

32*34 

328X4 

326C0 

328X0 

328C1 

328X0 

32SC4 

329X4 

404  At 

aooxi 

40431 

uOaxi 

aoaci 

40aX  1 

U23A0 

423X0 

a2?il 

423X1 

a23A  a 

423X4 

92380 

423X0 

32331 

423X1 

3239a 

423X4 

U23C0 

423X0 

923C1 

423X1 

«23Ca 

423X4 

a£6A2 

426X2 

«2692 

426X2 

426X2 

427  AS 

427X5 

u  ?  7  5  *5 

427X5 

927C5 

427X5 

a£230 

423E3 

«E?aO 

431E1 

aE2S0 

423E2 

FIGURE  C-23. 

SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 

C-93 


R£°CPT  SOI 

REPORT 

4GU1 

A31X1 

aGl  12 

A31X1 

4G1 13 

A  3 1  X  1 

AGl  1« 

A31X1 

4G1  IS 

A31X1 

4G1  16 

A31X1 

4G131 

462X0 

4G132 

462X0 

4G133 

462X0 

4R110 

323X0 

4fi  1 20 

325X0 

AR130 

328X4 

AR  1  AO 

4  0  A  X  t 

as  150 

404X1 

AR  1  60 

423X0 

UR  170 

328R3 

up  1  SO 

321X2 

a»320 

427X5 

AR3A0 

u27R0 

AR3S0 

423X4 

AR360 

423X1 

CDEP  STANDARD  H.I.S.  VERSION  I. I 
USER  INPUT  SELECTION  SUMMARY 


SELECTION  OPTION  •  CATEGORY  OF  LABOR 
USER-SELECTED;  6,5,4, 3. 2,1 

SELECTION  OPTION  -.ASSIGNMENT  CQOE 
defaults  USED;  all 

SELECTION  OPTION  -  TYPE  MAINTENANCE 
■USER-SELECTED;  S,J,D,C,3 

SELECTION  OPTION  -  QUEEN  BEE  ENGINES 
defaults  USED;  INCLUOEO 

SELECTION  (JP T ION  -  COMPONENT  POSITION 

defaults  used;  excluded 

SFlECTION  OPTION  -  ACTIVITY  ID/COMMAND  id 

defaults  used;  all 


SELECTION  OPTION  -  3  DIGIT  WUC'S 

defaults  used;  all 

RE=CCT  GROUP  TITLE:  SEYmOUR-JGHNSQN-AFB 


REPORT  Sa  GENERATED 


RrPCRT  56  GENERATED 


PAGE  2 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


COEP  3TAN0AR0  H.I.S.  VERSION  1.1 

OE°ORr  SOI  USER  INPUT  SELECTION  SUMMARY  PAGE  3 

REPORT  GROUP  TITLE-SETMauR-JOHNSON-AFB 

REPORT  SC  GENERATED 

REPORT  SO  GENERATED 

REPORT  5E  GENERATED 

REPORT  SF  GENERATED 

REPORT  SG  GENERATED 

REPORT  SH  GENERATED 

LIST  OF  USER-SELECTED  SRO  '  S 
AFT 


REPORTS  TO  RE  OUTPUT  3Y  COMBINATION  REPORTS  PROGRAM 
REPORT  C01 

SRO ' S  t  AFT 

ADC'S  (SPEC  INSPECTION  SET): 

3LANK 

REPORT  C21 
SRO'S:  AFT 

■•:OC 'S  (PM  AIRCRAFT  MTN  SET): 

2#v*R*3*P*N*K*J*f!*F*E*0*C*A 

SNUMe  s  70201'*  ACTIVITY  *  =  01.  REPORT  CODE  =  00,  RECORD  COUNT  s  000038 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


C-95 


REPORT  $00 


COEP  ST ANOARO  M.I.S.  VERSION  1.1 
OCDn„  ^PUT  DATA  SELECTION  SUMMARY 
REPORT  GROUP  TlTLE-SEYMQUR-JQHNSQN-AFa 


PAGE 


INPUT i 

INPUT  PROM  BASE-LEVEL  HISTORY  FILE 
OUTPUT: 

REJECTED  BECAUSE  the  RECORD: 

0- DUPLICATES  ITS  PRECEDING  RECORO 
—AS  UNWANTED  pORkcENTER  (INDIRECT) 
?—*S  UNWANTED  3RD 

3-«AS  UNWANTED  category  OF  labor 

U--AS  UNWANTED  ACFT  ASSIGNMENT  CODE 
T— 'AS  UNWANTED  ACTIVITY/COMMAND  TD 
#i—A5  AN  MOC  RECORD— IQ  OF  2  CR  5* 

7— AS  UNWANTED  wOR<CEMTES  (OlRECT) 
—as  UNWANTED  TYPE-MAINTENANCE  CODE 
Q— AS  unwanted  queen  dee  indicator 
. 0— tS  UNWANTED  yhEN— DISCOVERED  COOE 

11 - "AS  UNWANTED  3  DIGIT  wORKUNIT  COOE 

12-  'AS  AN  hqc  ACTION  TAKEN  CODE  :  f 

1 3- OGESN*  T  pit  a  SPECIFIED  COMB.  SPT. 
la— as  VAN— t#OuR-S  =  2ERQ 
lS-CDNTAlNS  UNRECOGNIZABLE  DATa 


USED  in  SELECTION  report 

34  indirect  han— ours  reported 

WORKCTRS  not  F3UND  in  DIRECTIVES 
serially  CNTRLED  REMOVE/ Install 
SELECTED  man-hours  reported 
scheduled  INSPECTIONS  reported 
SPECIAL  INSPECTION  REPORTED 
TCTO  PijRY  reported 
CanniSalIZaTIOR  wOSk  reported 

PASSED  re  Trip  combination  PROGRAM 
•',JC ’  Ocxyy  (SPEC.  INSPECTION  data) 
AUC;  1 1 000*  (OTHER  COMB.  REFT  DATA) 


55 

sc 

so 

SE 

so 

SH 


NO.  OF  RECORDS  NO.  OF  man-hours 
25S92B  1011187.0 

no.  of  recoros  no.  of  man-hours 


4721  0 
9547 
107448 
0 
0 
0 

2224 

17919 

1183b 

0 

1149 

n 

n 

4949 

24 

12 


593s 

17918 

909 

42080 

1339 

9703 

0 

597 


4499 

34059 


87259.6 

126691.2 

449576.3 
0.0 
0.0 
0.0 
0.0 

71374.5 

31353.1 

0.0 

5067.1 

0.0 

0.0 

31483.4 

0.0 

0.0 


71760.9 

71373.5 

0.0 

1354H.3 

2294.1 

15960.3 

0.0 

1209.6 


15960.3 
111410. I 


jn,£;  r“es£  OECOans  1N0  MANHOURS  ARE  REPORTED  IN  other  ENTRIES  CN  THIS  report 
SNrr.4  =  7O20U.  ACTIVITY  ,  =  02.  R£?0PT  CODE  =  73.  RECORO  COUNT  =  000058 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT’D') 


C-96 


sun(»Mni;BAMS  included  in  deck 


COEP  STANDARD  H.I.S.  VERSION  1.1 

REPORT  S02  LOG  OF  USER-INPUT  DIRECTIVES  PAGE 

REPORT  GROUP  t:TLE-**OT  DEFINED 

REPORT  GROUP. TITLE, S.J.-6C-4LL 
SORTIES, 7*36 
REPORT, C2 
3RD, AFT 

»nc,  A,f».C,D,E,F,G,H,  J,<,L,J*,N,P,3,R,S,T,U,V,a<,X,Y,Z,2,4,NAM£,NOC.l 
REPORT, Ca 
3RD, Ar T ,xF— 

V*OC.  A-,P,C,D,E.F,3,h,  J,<,L,M,.'J,P,Q,R,S.T,U,V,;»,X,Y,Z.2,4,NAN6,*DC.2 

REPORT, C2 

SRO.xFm 

aOC,  A  ,3,C,0,E  ,F  ,S,H,  J,<(  ,L,‘m,-V,F,  3,R,S,  T  ,U,  V,M,  X  ,  Y,  Z,  2,4,  'IAME,  *DC.3 
CATEGORY  CF  I.A30R, 1.2, 3. 4, 5, 6 

TYPE  MAINTENANCE  C00ES,a,3,C,D,E,H,J,P,Q#S,S,T, Y 
•yORKCENTFos  TO  AFSCS 


4E21 0 , 3c2l 0 , 

INSPECTION  SECTION 

JE21 a,-E2 1  a. 

ENG  I 

N6  INSPSC 

TIOM 

JE220. 427E1 . 

CORROSION 

CNTRL 

“6230, “23E3. 

FUEL 

SYS. 

RS240, “31  El  . 

RS»itR  < 

RECLAM. 

“6260,4236?. 

EGPE 

:ss 

“E260,“6?*O, 

TRiii 

iS.  AL 

£3T 

4E320,“E320, 

aRmsMENT 

SYS. 

“K1 11, “3151, 

33a 

A/C  flt  - 

A* 

aGl 12,“31G1 * 

330 

A/C  F 

LT  - 

3* 

“SI  13,43151 , 

335 

A/C  FLT  « 

A" 

46114, “3151, 

335 

A/C  ? 

LT  * 

9" 

aG 1 15,43161 , 

336 

A/C  F 

•  *  n 

A* 

4G115, 43151, 

336 

i/C  flt  • 

8" 

426A2, 42*62. 

33“ 

SPEC 

FLT 

-A" 

—ENGINES 

42&S2, “26*2. 

335 

SPEC 

flt 

■9" 

—ENGINES 

426C2,a?*i5, 

336 

SPEC 

flt 

"C” 

—ENGINES 

42340,82X56, 

33a 

SPEC 

FLT 

-A" 

—ELECTRICAL 

42360,325*0. 

335 

SPEC 

flt 

ag  « 

—ELECTRICAL 

42300,42310. 

336 

SPEC 

flt 

-c* 

— ELECTRICAL 

423*4, a23Ga, 

33a 

SPEC 

flt 

*4* 

— PNEUORAULICS 

4230a, a22“S, 

335 

SPEC 

FLT 

-6** 

— PNEU0RAULIC5 

Jc3C4,“23I4, 

336 

SPEC 

FL? 

"C” 

—PNEUORAULICS 

423* 1,42351, 

33a 

SPEC 

FL* 

mZm 

—ENVIRONMENTAL 

12731 

77C 

F3F— 

F!  T 

■q  » 

•.e*jij  TQflNMFNTlI 

42301,32311, 

336 

SPEC 

rL  * 

=LT 

-c* 

—ENVIRONMENTAL 

32f*0, 32*50, 

3?a 

SSEC 

flt 

*4" 

—COMMUNICATIONS 

32S5 V , 32“— 0  » 

335 

SPEC 

flt 

■g*» 

—COMMUNICATIONS 

323C0 , 32?  T 0, 

336 

SPEC 

flt 

"C* 

—COMMUNICATIONS 

32**1, 32*R1, 

334 

SPEC 

flt 

*4" 

—NAVIGATION 

32*61, xga-j. 

335 

SPEC 

FLT 

"3" 

—NAVIGATION 

32301.32*11, 

336 

SPEC 

FL” 

»C  " 

—NAVIGATION 

323*0, 32364, 

334 

SPEC 

flt 

—  INERTIAL  NAVIGATION 

335 

SPEC 

flt 

*A* 

—  INFRTIAL  NAVIGATION 

32SCa,32*ta. 

336 

SPEC 

flt 

»r  • 

—  INERTIAL  NAVIGATION 

325*0, 3P5G6, 

33“ 

SPEC 

flt 

*4" 

—AUTOPILOT 

FIGURE  C-23.  SAMPLE  CDEP  A.ND  ANALYSIS  PROGRAM  RUNS  (COST'D) 


C-99 


IwPPTiW 


=£? CRT  S02 


CO£P  STANDARD  M.l.s.  ycssiCN  1.1 
LOS  OF  USER-INPUT  DIRECTIVES 
REPOST  GROUP  riTLE-a.J.-^C'aLU 


32530, 329*0, 
325C0, 32510. 
32541.325G1. 
32531.325H1, 
325Ct, 32511. 
32142.32IS2, 
32152.321^?. 
321C2.J21I2. 
JOaai.uOaGl, 
‘•Oaei.aCaHt, 
ROsCl.JCaJ 1, 
52235. 3225?. 
32233.  322*2. 
522C2.322T2. 
=2745.s27G5. 
327.35. 427i.c, 
327CS.427TC, 

35131.36250. 

3513c. 362m, i. 

35133.46210, 
42119.32*00, 
3R12O.325S0. 
35130.32*03. 
45 1 sfl , aCa5 1 . 
*5150. 32=52. 
35160.32350. 
35170.32*5*. 
351*0,32132, 
3=1*1.32152, 
3=  2! 0. 4=652 , 
35220, 43  2=0, 
35*10.427=4, 
45  *=o, 42755, 
45**0. 4274*. 
45330.4=740. 
45350,45*53, 

35360,42*51 , 
4(?*7:.,42?32, 


335  SPEC  FlT  *3*— AUTOPILOT 

336  SPEC  F*.T  *C'— 3UT0P7L0T 
33«  SPEC  -LT  *3"— INSTRUMENTS 

335  SPEC  FLT  *3'  —  INSTRUMENTS 

336  SPEC  FLT  *C"  — INSTRUMENTS 
3*4  SPEC  Fi_T  *4*— WEAPONS  CNTRL 

335  SPEC  Fi.T  *3»— «£APONS  CnTRl 

336  SPEC  Pi. 7  "C"— WEAPONS  CNTfiL 

333  spec  pet  '4*— photo 

335  SPEC  FLT  -9-.. phqto 

336  SPEC  PLT  "C“— Pmqtg 
33=  SPEC  PLT  -4-— SENSOR 
3*5  SPEC  PLT  *3"— SENSOR 
336  SPEC  FLT  *C*— SENSOR 


335  SPEC  PLT  ’3“— PHOTO 

336  SPEC  FLT  "C"— PHQTG 
33=  SPEC  PLT  *4-— SENSOR 

135  SPEC  PLT  *3"— SENSOR 
336  SPEC  FLT  *C*~ SENSOR 

33«  SPEC  FLT  "A*— 5?PUC,  REPAIR 

335  SPEC  PL?  *3“  — STRUC.  5£PtIR 

336  SPEC  PLT  "C"— STRUC.  REPATS 
333  nEAPONS  ?Lt 

33S  *£aPQN5  ?LT 

136  -•sE4PflNS  PL? 

CGPM/41V-- *29*1 
4FCS/INSTR— 32SXI 

Inertial  navigation 

PHOTO 

SENSOR 

electrical 

ELECTRONIC  COUNTER  MEASURES 
•PAPONS  CONTROL 

radar  calibration 

JET  SNP.  SHOP 
TEST  CELL 

•j=tsl  processing 
structural  repair 

SURVIVAL  £3. 

NAC“!SE  Sf-GP 
=NE*J(5R*ULICS 
EhyI=QN»*Ej|TAL 
NON-OESTRuCTTvE  insp. 


>•••*••  of  PROCESSING  80  USER-DIRECTIVES 
SNti’ia  =  Tflaou.  ACTIVITY  >  s  02.  REPORT  CODE  =  01,  RECORD  COUNT  =  0092 4! 


figdhe  c-23.  sample  cdep  and  analysis  program  rttns  (cont’di 


C-1Q0 


=c?C?T  SOI 


CD£?  STAMC4SO 
'JS6S  INPUT  s 
PEPCOT  SSQUP  TITLc-S 


W.I.S.  VEPSION  l.i 

ELECTION  suhmaqt 


-OS  VALUE;  FPO*  USES  -••NONE—.  PPq*  >9, 
•<G-  OF  SOSTHS  =  7S99 


0*ta 


-••NONE*- 


Gs*  CENTEP 

TO  aFSC 

321*2 

32152 

32153 

321*2 

351C2 

32112 

322*2 

32252 

32292 

322*2 

32202 

322-2 

325*G 

32S50 

32c*  1 

325S1 

32530 

125*0 

32531 

325*1 

32SC3 

32510 

325C1 

3251! 

3=4*0 

32950 

320*1 

32951 

320»* 

3295o 

320S0 

329*0 

*3931 

329*1 

35sa« 

329*4 

329C0 

329 1  a 

325C1 

329*1 

320CS 

32914 

3.14*1 

40451 

*0«3l 

aftaHj 

aC-flC! 

J«4lj 

s=3*0 

=2350 

as?s; 

*2351 

023*0 

3535a 

*2330 

423*0 

*53=1 

=23*1 

*2  35o 

323*<4 

o=3C0 

=5310 

“23C 1 

0=311 

==3Ca 

023  la 

*23*2 

3€555 

*2332 

*23*2 

-  c  *•  C  2 

=2*12 

a?7  *< 

=2755 

=0?3= 

=27*5 

*27C5 

4=71$ 

«E2!0 

=€21 0 

0E2lo 

=  £214 

0=220 

0=7=1 

FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (rnvr 


E=09T  SOI 


PASS 


CD£P  STiNQiSO  *.1.3.  VEPSIQfc  1.1 
USES  INPUT  SELECTION  SUMMAS? 
3EPQ3T  GSQUP  TITLE-5. J.--C-ALL 


AEESO 

323E3 

a£2aO 

aSlEl 

3E250 

s=3E2 

3E2oO 

3E250 

af.320 

3E320 

35111 

331G1 

35112 

33151 

351 1  3 

33151 

3G113 

331S1 

35115 

3*1GI 

3SUE 

331G1 

J51 31 

35250 

35132 

3fr2«0 

35133 

35210 

a3 1 :  G 

320*0 

as  1 20 

*2530 

35130 

3253a 

aS’aO 

30331 

a«  150 

322*2 

a«  loO 

aP3»0 

3*170 

32533 

3*1=0 

32132 

33151 

32152 

=32 1C 

326S2 

3*5=5 

*3220 

3*310 

357*3 

33320 

35755 

3»330 

327*3 

33*30 

32730 

sSJSO 

32*33 

33*50 

*2331 

35*7.-. 

357*2 

■L?CT!ON  OPT  TON  *  Ci'EOGPy  OF  L*3Q3 
•*SEP-5£:_£CTED;  9>5>a»?>2al 


■LECTION  OPTION  -  ASSIGNMENT  COOS 
■ S  UScOj  ALL 


-  TTP®  MAINTENANCE 
T#T(3(^(3fl*rJfl<(C#D»Cf3iA 


■uECTiw?'  ro? IC-'< 
CE2 AULTS  uSEO; 


-  TJESN  3EE  ENGINES 
INCLUDED 


■l£ct:c?!  OPTION 
CEPAULTS  USED; 


-  COMPONENT  POSITION 
EXCLUDED 


FIGURE  C-23. 


SAMPLE  CDEP  .AND  ANALYSIS  PROGRAM  RUSS  (COST'S) 


COEP  STANDARD  H.I.S.  VERSION  1.1 
REPORT  SOI  USER  INPUT  SELECTION  SUMMARY 

REPORT  GROUP  TITLE-S  .  J  .  -*C-ALL 

SELECTION  OPTION  -  ACTIVITY  IO/COMMANO  ID 
DEFAULTS  USER;  ALL 

SELECTION  OPTION  -  3  DIGIT  WUC’S 
DEFAULTS  USED;  ALL 

REPORT  GROUP  TITLE:  S.J.-WC-ALL 

REPORT  SA  GENERATED 

REPORT  S8  GENERATED 

REPORT  SC  GENERATED 

REPORT  SO  GENERATED 

REPORT  SE  GENERATED 

RF°CRT  SF  GENERATED 

REPORT  SG  GENERATED 

REPORT  SH  generated 

LIST  OF  USER-SELECTED  SRO'S 
YK-',  AFT 


RPPOOTS  TO  eE  OUTPUT  9Y  COMBINATION  REPORTS  PROGRAM 

REeQRT  COl 

SPC'S:  XFr1 ,  AFT 

•A'OC'S  (SPEC  INSPECTION  SET): 

3HN* 

REPORT  C22 
SRO'S:  XF« 

.MIC '  S  (.Y0C.3  .  SET): 

Ff2.ZfY.X.7.Y.U.T.S.R.O»P.N.»M.L.K.JfM.G.F  rE.DfC.BrA 

RESCRT  C 3 1 

SRO'S:  XFH.iFT 

■vllC'S  (*0C.2  SET): 

P.2.Z.Y.X..v.v.U.T,S.R.g,P.N.M,L,K,J.H.G.F  .E.Dr^.B.A 

RE8CflT  C«1 

5°C'S:  XrH.AFT 

.•DC'S  (.YDC.a  SET): 

J.2.Z.Y,x,.v,7,U.T,S.R.N.P»N.M.L.K,JfH.G.F.E»D»Cr8fA 


PAGE 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT’D) 


f 

r 


SNIJM8 


COEP  STANDARD  H.I.S.  VERSION  l.l 
RE»QRT  SOI  USER  INPUT  SELECTION  SUMMARY 

REPORT  GROUP  TITLE-S.J.-wC-ALL 

REPORT  Cat 
SRO'S:  APT 

aOC'S  (rtOC.l  SET): 

a.a,Z,YfX,'>.V,U,T,S,R,a#P.N,M,L#K,JfH,G#F,E#0#C,a,A 

=  7  020U »  ACTIVITY  a  a  Oa,  REPORT  COOS  =  00#  RECORD  COUNT 


PAGE 


000038 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


CDEP  STANDARD 

H.I.S 

.  VERSION 

1.1 

PEPORT  500  INPUT  DATA  SELECTION  SUMMARY 

PAGE  1 

REPORT  GROUP  TITLE-S 

.J.-WC-ALL 

INPUT: 

NO. 

OF  RECORDS 

NO.  OF  MAN-HOURS 

input  FRGM  BASE-LEVEL  HISTORY  FILE 

2S5928 

1011187.0 

OUTPUT: 

>«w  « 

GF  RECORDS 

NO.  OF  MAN— HOURS 

REJECTED  BECAUSE  Th£  RECORD: 

O-OUPLICATES  ITS  PRECEDING  RECORD 

9721  R 

87259.6 

1-hAS  UNWANTED  wORKCENTER  (INDIRECT) 

7813 

105957.6 

2-HAS  UNWANTED  SRO 

102918 

920927.0 

3— IAS  UNWANTED  CATEGORY  OF  LABOR 

0 

0.0 

U-HAS  UNWANTED  ACFT  ASSIGNMENT  CODE 

0 

f.O 

B-HAS  UNWANTED  ACTIVIT^/COWMANO  id 

0 

0.0 

o— HAS  AN  MOC  RECOPO-IC  OF  2  OR  S 

2295 

0.0 

7 -HAS  UNWANTED  wORKCENTER  (DIRECT) 

2239 

2338.9 

d-HAS  UNWANTED  TYPE-MAINTENANCE  CODE 

2603 

69U2.2 

R— HAS  UNWANTED  DUEEN  BEE  INDICATOR 

0 

0.0 

10-HAS  UNWANTED  WHEN-DISCOVERED  CODE 

0 

0.0 

11 -has  UNWANTED  3  DIGIT  wORKUNIT  CODE 

0 

0.0 

l 2-haS  an  moc  ACTION  TAKEN  CODE  =  E 

0 

0.0 

1 3-0Q6SN • T  FIT  A  SPECIFIED  COMB.  RPT. 

0 

0.0 

IU-H&S  han-hOURS  s  ZERO 

100 

» 

0.0 

IB-CONTainS  UNRECOGNIZABLE  data 

12 

.  0.0 

USED  IM  SELECTION  REPORT 

SA  INDIRECT  MAN-HOURS  REPORTED 

7910 

9PU94 .9 

SB  WC-PXCTRS  NOT  FOUND  IN  DIRECTIVES 

2239 

* 

2338.9 

SC  SERIALLY  cntrleo  remove/install 

909 

0.0 

SO  SELECTED  man-hOURS  REPORTED 

31359 

293590,5 

SE  SCHEDULED  INSPECTIONS  REPORTED 

7972 

* 

30065.8 

SF  SPECIAL  INSPECTION  REP0RTE0 

8021 

* 

31290.3 

SG  TCTO  WORK  REPORTED 

2 

6.0 

Sh  CANNIBALIZATION  work  REPORTED 

1359 

1720.3 

3ASSEr'  TO  THE  COMBINATION  PROGRAM 

wUC!  09XXX  (SPEC.  INSPECTION  DATA) 

7980 

* 

31290.3 

wuc;  11000+  (OTHER  COMB.  REPT  DATA) 

5522a 

* 

191752.3 

*  NOTE;  T-ESE  RECORDS  AND  MaNHOuRS  ARE  REPORTED 

IN  OTHER 

ENTRIES  ON  THIS  RE°CRT 

BNUMA  =  7  020U »  ACTIVITY  4  =  03,  SE»ORT 

COOE 

=  7a,  RECORD 

COUNT  =  000918 

FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


C-105 


7020U  03  0°- 1 0-3 1  0 1 .596  *  JG05A/CDEP/DET ,R£C 


1 

5 

3 

a 

5 

6 
7 
3 

Q 

to 

11 

15 

15 

la 

15 

1 6 
17 
13 
10 
20 
21 
22 
23 
2« 

25 

26 
27 
23 
2° 

30 

31 

32 

33 
3« 

35 

36 

37 
<3 
3° 

JO 

-tl 
02 
u ; 
ao 
as 
a  6 

u  7 
a» 

ao 

50 

51 

52 


* 


*  JG05A/C0EP/0ET.3EC 

.  THIS  PROGRAM  DETERMINES  THE  PERCENTAGE  OP  RECORDS  (AND 

*  MAN-HOURS)  WHICH  HAVE  A  SPECIFIED  RECORD  ID  Cl  OR  3)  WITHIN 
.  AN  APSC  OR  WITHIN  AN  AHSC  ANO  SRO.  4LSG  DETERMINED  IS 

*  what  FRACTION  OF  THE  RECOROS  HAVE  ACCEPTABLE  TYPE 
»  MAINTENANCE  A, NO  WHEN  DISCOVERED  CODES. 

INTEGER  AFSCINOX.RECIO, IDSRD 
INTEGER  OFF  INOX ( 100 ) , ILMINOX ( 1 00) , TMINDX 
REAL  RECKNTC100, 3,2) , SUMHRS C 1 00 , 3 , 2) * INKNTR { 1 00 , 2) , 
i0UTKNTRC100),ACCPTM(100.3,2) # 

3  INK. '1TM  Cl  00, 2)  ,OUTKNTM{  100)  .MANHRS , ACCPTR C 1 00 , 3, 2) 

REAL  0UmR£CC3),0UMHRSC3) 

REAL  OFFHRSCIOO) 

CHARACTER  AFSC*5C100) ,SRD*3C2,«) ,TYPMTN*1,WOC»1,WOCSET*1 { 1 7 ) , 
ATMSET*! C5) ,NEWSS0*3 

CHARACTER  QFFMaP*5  C 1 00) , IL.MMAP»5( 100) ,TMMAP*5,TFMAP*S 
LOGICAL  NO  I  L.M 

DATA  R€CXNT/600*0.0/»  SUMHRS/ 600*0 . 0  /  ,  INKNTR  /  20  0  *0 . 0/ 

DATA  GUTKNTR/100*0.0/, INKNTM/2Q0*0 . 0/ , OUTkNTM/ 1 00*0 .0/ 

DATA  ACCPTR/600*0.0/,ACCPTM/600*0.0/ 

Data  wOCSET/'a* , •C'.,0,,*E,,'F,,*H','J','K',*N',,P,,,Q,,,R', 
S'V  ,  '2* ,  'W  ,  'X' ,  'YV/TMSET/'B',  'C',  'O',  ' J’ , 'S'/ 

DATA  SRP/8* '  '/ 

REaO  C5, 5)  NUMSfiO 

READ  C5*  5)  CSflOCl»J)»J=l#  NUMSRO) 

R£iD  f 5, 5)  CSRDC2, J) ,J=1, NUMSRO) 

READ  C5.S)  SORTIES 
RE  AO  CS.S)  IOILM 
FORMAT  TV) 


WRITE  C6.7)  CCSROCI# J) , J=1 , NUMSRO) , 1=1, NUMSRO) 

7  FORMAT  (8C3X,A3)  ) 

+ 

10  READ  C l »  20 , END=30)  AFSC INOX , TYPMTN, wDC , REC ID , NEWSRO , MANHRS 


00  1«  1=1,2 

iDO  12  J=l, NUMSRO 

IF  CSROC!,J).EQ.NEWSRD)  GO  TO  16 
12  CONTINUE 


la  CONTINUE 


16  IDSRO=I 

IF  CRECI0.GT.3)  R£CI0=2 

DC  21  1=1,5 

IF  CTYPMTN.ED.TMSET Cl) )  GO  TG  22 


FIGURE  e-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


C-106 


tou  ,13 

O 

O 

1 

O 

4 

31  01.286  *  JG05A/CD£P/DET.REC 

53 

21 

CONTINUE 

5u 

* 

55 

GO  TO  25 

56 

* 

57 

22 

00  23  J=l,17 

53 

IF  Crt0C.£Q.«0CS£T(jn  GO  TO  24 

55 

23 

CONTINUE 

60 

* 

61 

GO  TO  25 

62 

24 

ACCPTR(AFSCINOX,RECID, IDSRO)=ACCPTR(AFSCINDX,RECID, IDSRQ)+! 

63 

ACCPTM(AFSCINOX,RECIO, IDSf!D)=ACC?TM(AFSClNOX,RECID, IOSRO)* 

64 

i  manhrs 

65 

25 

R£CKNT(AFSCINDX,RECIQ, IOSRD ) =RECXNT ( AFSCINDX,RECID. IOSRO)*! 

66 

SUMHRS ( AFSC INO X, REC ID, IOSRO )=SUMHRS(AFSC INOX, REC ID,  IOSRO) ♦ 

67 

i  MANHRS 

63 

I. NKNTR ( AFSC INO X, IOSRO )=INKNTR (AFSC INOX, IDSRD)*1 

6° 

INKUTMTAFSCINOX, IOSRO 1=INKNTM( AFSC INOX, IOSRO )»MANHRS 

70 

OIJTKNTRCAFSCINOX)sOUTKNTR(AFSCINOX)*1 

71 

OijTKNTM  (  AFSC  INOX  )=OUTKNTM(  AFSC  INOX  )*MANHRS 

72 

GO  TO  10 

73 

20 

FORMAT  (I2,2A1,I1,A3.F4.0) 

7  a 

30 

CONTINUE 

75 

♦ 

76 

00  4 2  1=1,100 

77 

R£A0  (2, 40, £ND=43)  AFSCtl) 

73 

40 

FORMAT  (2X,A5) 

79 

42 

CONTINUE 

30 

♦ 

31 

43 

JJ=I-t 

35 

L=0 

33 

* 

■><1 

DC  30  1=1, JJ 

35 

L=LM 

36 

IF  (>..£3.4)  WRITE  (6,50) 

37 

IF  (L.E0.4)  L=0 

33 

50 

FORMAT  ( ' 1 ' ) 

3° 

WRITE  (6,60) 

30 

-ORMAT  CO',*  AFSC  REC  10  SR0  #  REC  SIN', 

91 

4  '  X  OUT  u  MHRS  *  IN  X  OUT  ACC  SEC  X  ACC  MANHRS 

32 

i  *  X') 

93 

* 

99 

• 

♦  TN5  sso  OF  the  FIRST  MOS  IS  USED  WHEN  MORE  THAN  ONE 

49 

♦ 

»  SERIES  CF  IN  MOS  IS  PRESENT. 

a*, 

♦ 

47 

NE*SRD=SRD(1,1) 

OS 

* 

94 

00  30  <=1,2 

!  00 

IF  fINKNTR(I,n).CT. 0.001)  INKNTR ( T , <) =1 . 0 

10! 

IF  (OUT<NTR(I) .LT. 0.001)  OUTKNTR(I)=1.0 

102 

TF  (INKNTM(I,k) .LT.O.OOU  INK  NTM ( I , K ) = 1 , 0 

103 

1=  (OUTKNTM(I).lT. 0.001)  OUTKNTM ( I ) = 1 . 0 

1  04 

* 

FIGURE  C-23,  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (COST'D) 


C-107 


7020U  03  OR-10-31  01.2Kb  •  JGOSA/COEP/OET .SEC 


105 

106 

107 

108 

1  OR 

no 

65 

1 1 1 

* 

112 

113 

U« 

115 

116 

117 

It  3 

1  1R 

70 

120 

121 

122 

80 

123 

12« 

90 

125 

126 

* 

127 

* 

123 

* 

12R 

• 

130 

* 

131 

# 

>32 

* 

133 

9 

13d 

9 

135 

9 

136 

9 

137 

9 

13* 

9 

1  35 

9 

1  UO 

9 

1  d  l 

9 

1  “2 

9 

1“3 

9 

1  ad 

♦ 

1  “5 

* 

Id* 

* 

1  d  7 

* 

1  aft 

* 

1  JR 

1 50 

1 5 ! 

152 

1  Ou 

15“ 

105 

155 

* 

156 

1  to 

00  65  J=  1 . 3 

DUMREC(J)=RECKNT(I,J,K) 

OUMHRS (J)=SUMHRS (I, J.K) 

IF  (RECXNT(I,J.K).LT.O.OOt)  DUMREC (J) =0. 001 
IF  (SUMHRSCI, j,K) ,LT. 0.001)  OUMHRS ( J ) =0 . 00 1 
CONTINUE 

WRITE  16,70)  (AF$CCI),J,NEWSRO,PECXNT(I,J,K), 
i  R£CKNT(I,J,rt)/IMKNTR(I,K)*100.,  RECK  NT  (I,J,K)/OUTKi'iTR(I)» 

4  100., 

5  SIJMHRS C I, J.K) .SUMHRSCI, J,K)/INKNTM(I.K). 100., 

WSUMHRSd,  J.K)/OUTXNTMd)*100.,  ACCPTRd,  J.K)  , 

i  ACCPTRd.J.A)  /0'iMREC(J)«100.,ACCPTM(I,J,K)  , 

%  ACC°TMd,  J,K) /OUMHRS  (J)*  100.,  J  =  l,  3) 

FORMAT  (2X,AS,«»X,:i,6X, A3,2X,F6.0,1X,F6.2, 1X.F6.2, 

4  1X,F7.0,1X,F6.2,1X.,  F6.2,3X,F6.0,2X,F6.2,3X,F7.0,RX,F6.2) 

NEWSR0=SR0(2, 1) 

CONTINUE 

CONTINUE 

IP  (.NOT.NOILM)  STOP 

«  THIS  PORTION  OF  0ET.3EC  DETERMINES  THE  RATE,  IN  man-wQURS 
.  PER  SORTIE,  THAT  UNSCHEDULED  OFF -EQUIPMENT  MAINTENANCE 
«  IS  REQUIRED.  IT  DOES  THIS  BY  ACCUMULATING  MAN-HOURS  FOR 

*  RECORDS  WITH  A  RECORD  ID  OF  3,  OR  I  IF  THE  SRO  3£lONGS  TO 

*  AN  ENGINE. 

*  two  FILES  ARE  READ  IN  FROM  CATALOGS  OFFMAP  aNO  ILMMAP.  ONE 

*  file  IS  read  FRCM  Each  CATALOG.  THE  OFFMaP  Catalog  CONTAINS 
«  A  FILE  FOR  EACH  BASE  AND  AIRCRAFT  TYPE  AT  T“AT  3AS6.  IN 

*  THIS  file  IS  A  LIST  of  OFF-EQ.  4FSC  S  and  NUMBERS  TO  INDICATE 
.  Th£IR  POSITION. 

»  CATALOG  TLMMAP  ALSO  CONTAINS  A  FILE  FOR  EAC«  3ASE  AND  AJO- 

*  CRAFT  TYPE.  IN  THESE  FILES  ARE  MAPPINGS  tq  P>JT  TOGETHER 

*  DIFFERENT  WORK  CENTERS  WHICH  DO  THE  SAME  WORK.  WHEN  °UT 

*  TOGETHER  THE  INDEX  CORRESPONDS  TO  THE  NUMBERING  OF  AFSC  S  IN 

*  The  OFFMAP  CATALOG  (FILE). 


*  READ  OFFMAP  ANC  ILMMAP  FILES 
DO  105  1=1,100 

READ  (03, 100 ,ENO=l 10)  OFCINOX (!) .OFFmaP(I) 
WRITE  (6,102)  CFFINOX(I) ,QFFM»P(I) 

1 Ou  FORMAT  (12, a 5) 

1  OP  FORMAT  (IX, 12, AS) 

105  CONTINUE 

110  LAST2=I-t 


FIGURE  C-23.  SAMPLE  CDEP  AND  ANALYSIS  PROGRAM  RUNS  (CONT'D) 


C-108 


7020U  03  09-10-51 


oi .256 


«  JGOSa/COEP/OET.REC 


157 

158 

ISO 

* 

160 

1  IS 

161 

120 

162 

* 

165 

1 30 

164 

* 

165 

* 

1 66 

« 

167 

* 

168 

• 

169 

170 

171 

* 

172 

135 

173 

174 

ITS 

176 

* 

177 

173 

179 

160 

131 

132 

133 

134 

* 

135 

138 

136 

# 

137 

140 

1«5 

* 

13° 

ISO 

190 

1°1 

* 

102 

I«* 

♦ 

1  04 

105 

1=6 

1«7 

193 

* 

1  =9 

155 

200 

* 

201 

1*0 

202 

♦ 

203 

i7o 

20  J 

* 

205 

* 

20b 

♦ 

207 

205 

w 

00  120  1=1,100 

SEAO  (04,1 1 5, ENO=l 30 )  ILMMAP(I),ILMINDX(I) 

FORMAT  (IX, as, IX, 12) 

CONTINUE 

LAST=I-1 

*  END  INPUT. 

«  ALPHABETIZE  QFPMAP  AND  ILMMAP.  THIS  IS  DONE  TO  ALLOH  ONE 

*  PASS  .THEN  COMPARING  ILMMAP  APSC  S  TO  THOSE  IN  TKE  AFSC 
»  ARRAY  (MAP  2) . 

«RITE  (6,135)  LAST ,L4ST2 

FORMAT  (10X, 'LASTS1, 13,’  LAST2=',I3) 

00  ISO  1=1, LAST-1 

00  140  J=1,LAST-I 

IF  (ILMMAP(J) . L£. ILMMAP (J*l))  GO  TO  138 
TMMAP=ILMMAP ( J) 

ILMMAP (J)=lL“MAP(J*t) 

ILMMAP  (JM)sTMMAP 
TMIN0X=ILMIN0X(J) 

IL«INOX(J)=ILMINOX(J+l) 

ILMIMOXCj-MJsTMINOX 

continue 


CONTINUE 

CONTINUE 

OG  170  M=1,LAST2-1 
00  160  N=l,Li5T2-M 

tp  (CFFmaP (N) .LE.OFFMaP (N*l ) )  GO  TO  1SS 
TFMAPsOFPMAP(N) 

OcFMAP(N)=OFFMAPrN*t) 

0FFMAP(N*1)=TFMAP 

CONTINUE 

CONTINUE 


CONTINUE 

*  END  OF  AlPhaSETIZATION.  PRINT  RESULTING  0R0ER5  TC  5E  SUPS 

*  AFSC  5  MATCH. 

*R I TE  (6,130) 
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FQPmat  (• t • , 30X, ' ILMMAP' //30X, ' AFSC' ,3X, ' INDEX' //} 

210 

•yRITE  £6,190}  (ILMMaP£I),ILMINDX(t),t=1,lAST) 

21 1 

t  QQ 

FORMAT  ( 30 X , AS, 3X , 12) 

212 

* 

213 

rfRITE  £6,200) 

214 

2G0 

FORMAT  £' 1 *,30X, *OFFMaP'//30X, 'AF SC 1 , 3X , * INOEX '  /  / ) 

215 

*RIT£  £6,210)  (OFFMAPfD.OFFINOXfl), 1=1, LASTS) 

21*. 

210 

FORMAT  (30x.AS.3X.I2) 

217 

• 

210 

* 

215 

* 

*  MATCH  ILMMAP  AFSC  S  TO  THOSE  IN  MAP  2,  THAT  IS  ARRAY  AFSC. 

220 

♦ 

«  USING  THE  INOEX  ASSGCIATEO  iyITH  ILMMAP  DETERMINES  THE  POSITION 

221 

* 

*  IN  the  gffhrs  ARRAY. 

222 

223 

* 

22a 

00  2ao  1=1, LAST 

225 

•* 

226 

J=I 

227 

215 

IF  ( ILMMAP ( I) .NE.AFSC(J) )  GO  TO  230 

226 

* 

22° 

00  220  <=1,2 

230 

GF=hRS£ILMINDX(I))=OFpHRS(ILMINOX(I))  ♦  ACCPT.m  (  J  ,  3,  K  ) 

231 

220 

CONTINUE 

232 

* 

233 
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234 

GO  TO  235 
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230 

3=J  +  1 

236 

GO  TO  215 

237 

235 

CONTINUE 

236 

9 

23° 

5*0 

CONTINUE 

2a0 

9 

2«1 

9 

242 

9 

*  PRINT  ANC  xfllTE  INTERMEDIATE  LEVEL  MAINTENANCE  MAN-mOuRS  AND 

243 

9 

•  MAN-HOURS  PER  SCRTIE. 

344 

9 

245 

•yRITE  f  6, 250) 

5«6 

250 

FORMAT  (' 1 ' ,20X, *aC  =  AFSC  TOTAL  MANHOURS' /, 37 X, 

247 

3  'MAN-HOURS  PER  SORTIE') 

244 

.’RITE  (5.260)  ( I ,  OFFMaP  ( I)  ,  0FFMR5  CD/10., 

344 

3CFFh«s (t}/( 10. ySCRTIES), 1=1, LASTS) 

250 

260 

FORMAT  (23X, I2.3X,A5,5X,F7.1,5X,F7.4) 

2C ! 

STOP 

252 

E^D 

7  vPMCOr  EXPANDED.  USE  5LIMTT3  03  CORE=  OPTION  FOR  NEXT  RIJN 
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APPENDIX  D.  UNIT  MANNING  DOCUMENTS 


A.  The  Documents 

Function.  Used  to  build  manpower  authorization  data  file- 
0S29/N241D/CDEP/MEN/  Base 

Input.  Run  at  the  Pentagon 

Output.  Computer  print-out  including  authorizations  for: 

Aircraft  Generation  Squadron  (AGS) 

Component  Repair  Squadron  (CRS) 

Equipment  Maintenance  Squadron  (EMS) 

Sample  Listing.  Figure  D-l. 

B.  Manpower  Authorization  File 

Function,  lists  the  authorizations  for  each  AFSC 

Sample  Listing.  Figure  D-2. 

There  are  three  columns: 

Column  1  gives  the  number  corresponding  to  an  AFSC  in  the 
0S29/N241D/CDEP/WCMAP/  Base  File. 

Column  2  gives  the  total  number  of  people  authorized  for  that  AFSC. 

Column  3  gives  the  total  number  of  non-AGS  people  authorized  for  the  AFSC. 
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FIGURE  D-2.  MANPOWER  AUTHORIZATIONS  FILE- OS29 /N241D/ CDEP/MEN/ S J80 


APPENDIX  E 


"SMA1LJCL" 


APPENDIX  E.  SMALLJCL 


A.  0S29/N241D/CDEP/SMALLJCL 

Function.  Provides  data  on  weighted  break  rates,  nu  ber  of 
crews,  and  weighted  service  rates  for  a  particular  aircraft 
type  at  each  base. 

Input.  CO.  Base  tape,  output  from  JG05A/CDEP/JCL/DB.CRE 
0S29/N241D/CDEP/PR0GRAMS/ERR.CHEK  (Figure  1-1) 
0S29/N241D/CDEP/PR0GRAMS/REDTAB  (Figure  1-2) 

0S29/N241D/CDEP/MEN/  Base 
0S29/N241D/CDEP/WCMAP/  Base 

Output.  0S29/N241D/CDEP/SGMINPT2/  Base  (Figure  E-l) 

-  input  to  Sortie-Generation  Model 

-  contains  break  rate,  number  of  crews,  and  service  rate 
Computer  print-out  of  break  rate,  number  of  crews,  and  service 
rate. 

JCL.  Figure  E-2. 

Program  Submission.  Figure  E-3. 

Key 

1.  CO.  Base  reel  name 

2.  User  identification 

3.  Reel  number  of  CO.  Base  tape 

4.  Number  of  sorties,  note  space 

Sample  Run.  Figure  E-4. 


E-l 


0. 2878 

27.77 

0. 1417 

0, 1515 

15.06 

0.  1384 

0. 1062 

31.07 

0. 1273 

0. 2010 

18.36 

0. 1769 

0. 1506 

9.57 

0.2507 

0.0225 

12.00 

0. 1510 

0. 1699 

9.95 

0. 0682 

0.0608 

8.31 

0. 1043 

0.1188 

12.28 

0. 1327 

0. 0793 

6.57 

0. 1571 

0. 0836 

11.91 

0. 1365 

0.0508 

10.81 

0. 1585 

0.0379 

4.56 

0.3955 

0. 1 t 33 

14.89 

0 . 2584 

0.0335 

10.73 

0. 0857 

0.0527 

131.49 

0. 5356 

0. 1641 

7.27 

0. 5434 

FIGURE  E-l.  MANPOWER  INPUT  TO  THE  SORTIE-GENERATION  MODEL  - 

OS29/N241D/ CDEP/SGMINPT2/S J80 


E-2 


10Q##N»  R ( XL ) 

110$:  NOTES**  &FIRSTNAME.  **  QS29/N24 1 D/CDEP/SMALLJCL  3ASE=&BAS 

120$  1DENT  & I DENT.  USERQO 

130$: NOTE****  RUN  EDIT  &  ERROR  CHECK  PROGRAM  *** 

140$: NOTE:***  SOURCE  =  GS29 / N24 1 D / CDEP / PROGRAMS/ ERR .CHEK 
1 50$ : MSG23 1 , I NPUT  REEL=& I N-REEL , 

160$:  OPTION:  FORTRAN-,  NOMAP 
1 70$ : FORTRAN : NFORM , NLNO ,  XREF 

1 80$ :  SELECT  A :  0S29/N24 1  Ei/CDEP/PROGRAMS/ERR CHEK 

190$: EXECUTE 

200$: LIMITS: 15,9K, ,5K 

2 1 0$ « TAPE9 :  0 1  *  A 1 D  * ,  &  I N-REEL . , , CO . &BASE . ### 

220$ i FILE: 07 , A2S , 99L 

230$: NOTE:***  END  OF  EDIT  PROGRAM  *** 

240$: NOTE:**  SORT  ON  WC, JCN, START-TIME  ** 

250$: GMAP:  NDECK 
260$: LIMITS: 01, 21K, , IK 
270: 600SM 
280: SORT: FCB *  ,  8 

290 : F I ELD : ( C 1 , C7 , C8 , C3 , C3 , C6 , C 1 0 , C2 ) 

300: SEQ: (AS, A2, A6) 

310: FILCB: FCBv **,  2 
320: END 
330$: EXECUTE 
340$: LIMITS: 09, 19K, , IK 
350$: FILE: SA,A2R. 

360$ : F I LE : S  Z , B 1 S , 99L 
370$  s  F I  LE :  S 1  B2R ,  70R 
380$ : F I LE : S2 , B3R , 70R 
390$ : F I LE : S3 , B4R , 70R 

400$: NOTE:****  END  OF  SORT  ACTIVITY  **** 

410$:  NOTE:****  COMPILE  S<  RUN  REDTAB  PROGRAM  **** 

420$: NOTE:***  SOURCE  =  0S29/N241D/CDEP/PR0GRAMS/REDTAB 

430$: OPTION: FORTRAN, NOMAP 

440$: FORTRAN: NFORM, NLNO, XREF 

450$: SELECTA: 0329/N241D/CBEP/PR0GRAMS/REBTAB 

460$: EXECUTE 

470$: LIMITS: 10, 13K, , IK 

480$: FILE: 01, B1R 

490$: PRMFL: 02, R, S, 0S29/N241D/CDEP/WCMAP/&BASE. 

500$: DATA: 03 

5 1 0$ : SELECTA : 0S29/N24 1 D/CDEP/MEN/&BASE . 

520$: DATA: 05 
530  S-:NUM-SORT  I ES . 

540  F 

550$: SYSGUT : 08, XL 

560$:  PRMFL:  09,  W,  S,  0S29/N24 1 D/GDEP/SGMI NPT2/&BASE . 

570$: NOTE:****  END  OF  TABULATION  **** 

530$  s-ENDdOB 


FIGURE  E-2.  OS29/N2A1D/CDEP/SMALLJCL 
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S3 

1 7*?0U 

ENTERED  C 

AT  03.?5a  FPOM  TSS/S  0-08-08 

OOoi 

5 

SNlj"9 

17°0U 

0002 

S 

COMMENT 

0S2R9RIGGS  TSS  C4RDIN 

0003 

55 

USE? 10 

QS2?9R IGGSSaaassaasaa 

OOOu 

5 

NOTE 

.*  NANCY  8  **  0S2?/N2ai0/CDEP/SMALLJCL  8ASE=SJ80 

no 

0005 

3 

IDENT 

OS2011N2410  ,0S2?UG00DWIN  USERQO 

00000120 

O00*j 

5 

\-CTE 

***  RUN  EOIT  i  ERROR  CHECK  PROGRAM  **• 

130 

0007 

5 

VOTE 

*«*  SOURCE  =  0S2?/N2ai O/COEP /PROGS AMS /ERR .CHEK 

140 

000" 

3 

VSG2 

1, INPUT  R£EL=20566 

ISO 

000? 

5 

CPTIGN 

FORTRAN, NOMAP 

00160 

0010 

r  Oft  TR  an 

NFQQM.NLNO,  XSEF 

000170 

001! 

AS 

EXECUTE 

0001?0 

0012 

c 

LIMITS 

1 5  *  ®K  # » 5K 

00200 

0013 

5 

tape? 

01 , AID, ,20566, .CO.SJfiOsaa 

0210 

00  la 

5 

PILE 

07 , 42S, ??L 

220 

0015 

VOTE 

•  **  END  OF  EOIT  PROGRAM  »■»* 

230 

0016 

S 

■VOTE 

»»  SORT  ON  WC,JCN, START-TIME  •* 

240 

001? 

AS 

6MAP 

NPECK 

250 

0018 

s 

LIMITS 

0  1 , 2 1 K  ,  ,  IK 

00260 

001? 

AS 

EXECUTE 

000330 

0020 

5 

LIMITS 

0?, IRK,, IK 

OOjao 

0021 

5 

?Tl£ 

Si, APR 

350 

0022 

5 

PILE 

32, 8! S. R?L 

360 

0025 

3 

PILE 

S!,32R,70R 

370 

0024 

5 

FILE 

S2,?3R, 70S 

380 

0025 

S 

PILE 

S3, 8aR, 70S 

3?0 

0026 

3 

.VOTE 

«*»*  END  OF  SORT  ACTIVITY  **** 

aOO 

0027 

5 

VOTE 

****  compile  S  SUN  RE0TA8  PROGRAM  »*w* 

alO 

0026 

5 

VOTE 

***  SGURCS  =  CS2°/N2?lD/CD6a/PRCG3AM5/REQT a8 

820 

002<> 

5 

option 

FORTRAN, NOMAP 

00a30 

0030 

AS 

FORTRAN 

VF0Rm,nl?,0,  xref 

00044Q 

0031 

AS 

EXECUTE 

000060 

0032 

< 

limits 

!0,13K,,1K 

00u70 

0033 

5 

P  IlE 

01, SIS 

480 

003“ 

S3 

»s«fl 

i)2,S,S,0S2?/N2?1C/C0E°/^CMAP/5J80 

0a?0 

0035 

5 

r.ATA 

0  3 

500 

0036 

S 

C-ATA 

05 

520 

003* 

$ 

SYSOUT 

08, XL 

00550 

0036 

55 

RRmFL 

0°,rt,S,0S2?/N2al0/CDEP/SGMINPT2/SJ80 

0560 

003? 

$ 

VOTE 

»***  END  OF  TA6'-'.iTI0N  **** 

570 

OQan 

S 

ENO JO? 

000580 

FIGURE  E-4.  SAMPLE  " SMALL JCL"  RUN 


E-5 


. . jin, . . 


TOTAL  CARO  COUNT  THIS  JOft  =  000308 


*  3EC-IN  ACTIVITY  -at-  FORTY  09/10/81  SW=3 1 0202000000 

»  NORMai,  TERMINATION  at  005144  i=uO60  sw=3i 0202000000 


START  9.320 
STOP  9.321 

S.YAP  0.000 

LAPSE  0.002 


LINES 

LIMIT 

132 

12000 

PROC  0.0002 
LIMIT  0.0500 

I/O 

LIMIT 

0.000 

IU  5 

CU  5 

MEMORY 

M»T 

268 

197 

FC 

0  TYPE 

SUSY 

IP/AT  FR/RT 

IS/sfC 

MS/RE 

AOORESS 

T  6 

5« 

P* 

R  0191 
SYOUT 

*  64 

0  0 

3 

3 

0-08*08 

*1 
3* 
K  * 

R  0191 

3  0191 
SYOUT 

*  0 

*  s« 

0  0 

0  2 

08 

36 

08 

36 

0-08-10 
0-08— 10 

c* 

SYQUT 

LIST  132  LINES  AT  STa.  XL 


PROCESSOR  I/O  CORE  TOTAL 

•>  •n'  a  .02  S  .03  S  .06 


«  BEGIN  ACTIVITY  -02-  GELCAO  09/10/81  SW=01 0000000000 

NPIJT  STartpo  .,jth  =20566  FOR  FILE  CODE  01  G£  600  3TL 
*  ^ORmal  TERMINATION  AT  013723  1=5020  SW=Ol 0000000000 


AFDSC  20566  20566 


0001  81252 


000 


START  9.903 

LIMES 

30 

PROC  0.1029 

I/O 

0.017 

STOP  10.180 

LIMIT 

5120 

LIMIT  0.1500 

LIMIT 

S.vAR  0.059 

LARS?  0.277 

FC  0  TYPE 

3USY 

IP/AT  FP/RT 

IS/ac 

MS/sE 

3.  9  0191 

*  57 

2  2 

36 

36 

R*  R  0191 

»  10 

0  0 

1 

1 

oi  n  tarq 

1S953 

0/03 

1130 

0 

07  5  0191 

*  05591 

o  959 

1166 

1138 

p-  SYOUT 

L*  R  0191 

*  Ra7 

0  0 

62o 

62oR 

LIST  21 

LINES  AT  STA 

.  XL 

RC-OA  9 

LIMES  AT  STa 

.  XL 

iCESSPR 

i/<: 

COSE 

TOT  AL 

5  3. ?R 

5  1.02 

S  .95 

S  5.26 

IN  ACT 

IVITY  -03- 

GMAP 

09/ 10/81 

5W=2l 1 OOOOOOOOO 

iS"iL  T 

ERntmat  IO'j 

AT 

002056  1=5020  S*=2t 1 OOOOOOOOO 

START 

10.222 

LINES 

70 

PROC  0.0004 

I/O 

0.000 

STC-u 

10.2*3 

l:MTt 

1024 

LIMIT  0.0100 

LIMIT 

Saar 

0.000 
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9 
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10 
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11 
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12 
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13 
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19 
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15 
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16 
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17 
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9.0975 
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3.5500 

a. 7616 
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a. 1H8 
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3.7201 
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3.7079 
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3.9706 
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FIGURE  E-4.  SAMPLE  "SMALUCL"  RUN  (CONT'D) 


APPENDIX  F.  NOTIONAL  BASE  RUN 


A.  0S29/N241D/TEMPSFF 

Function.  Creates  notional  base  data  for  each  of  the  aircraft 
types;  F4,  F15,  Fl6,  Fill,  A10. 

Input.  No  user  supplied  inputs 
0S29/N241D/CDEP/WCMAP/  Base  for  all  bases 
0S29/N241D/CDEP/SGMINPT2/  Base  for  all  bases 
JG05A/CDEP/ CALLNOT  -  uncompiled  version  is  JG05A/CDEP/ALLNOT 
(Figure  60) 

Output.  The  following  files  contain  data  for  each  of  the 
notional  bases: 

0S29/N24 ID/ CDEP/ WCMAP/F4  (Figure  F-l) 

OS29/N24aD/ CDEP/WCMAP/F15 
0S29/N241D/  CDEP/WCMAP/F16 
0S29/N241D/CDEP/WCMAP/F1 1 1 
OS29/N241D/ CDEP/WCMAP/A10 
0S29/N241D/CDEP/SGMINPT2/F4  (Figure  F-2) 
0S29/N241D/CDEP/SGMINPT2/F15 
0S29/N241D/ CDEP/ SGHINPT2/F16 
0S29/N241D/CDEP/SGM1NPT2/F1 1 1 
0S29/N241D/CDEP/SGMINPT2/A10 

Computer  printout  listing  AFSC,  break  rate,  nuaber  of  crews 
and  service  rate  for  each  notional  base. 

JCL.  Figure  F-3. 

Program  Subaission.  Figure  F-4. 

1.  Name  of  submitter. 

2.  Identification 

Sample  Run.  Figure  F-5 . 


F-l 


323X0 
323X3 
328X4 
404R1 
423E2 
423E3 
423X0 
423X 1 
423X4 
426X2 
427RG 
427R5 
431  £1 
431X1 
462X0 
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0-2441 

23.79 

0.  1407 

o. iei8 

38.30 

0 . 2093 

0. 1384 

20.92 

0. 1453 

0.2194 

22.66 

0. 1283 

0. 1377 

23.92 

0. 1432 

0. 1313 

13.09 

0 . 1 636 

0. 0523 

13.86 

0. 1732 

0. 1716 

11.20 

0. 0924 

0.0570 

10.25 

0. 1013 

0. 1174 

12.01 

0. 1666 

0.0645 

8.89 

0. 1479 

0.0998 

11.90 

0. 1487 

0.0637 

10.96 

0. 1274 

0. 0896 

6.  28 

0.4741 

0. 1384 

13.  48 

0.2897 

0.0550 

12.08 

0.0823 

0. 1766 

129.71 

0. 1947 

0. 1209 

15.  40 

0.3341 

FIGURE  F-2.  NOTIONAL  F-4  MANPOWER  FILE-OS29/N241D/CDEP/SGMINPT2/F4 


F-3 


##A- R ( XL )  :, 8, 16,32 

<5:  NOTE:**  &FIRSTNAME.  «*  JCL  =  0S29/N241D/TEMPSFF 
$: I DENT I DENT. 

*:NOTE:**  SOURCE  ~  JG05A/CDEP/ ALL .  NOT 
#: OPTION* FORTRAN, NOMAP 
$: SELECT: UG05A/CDEP/CALLN0T 
SJ EXECUTE 

LIMITS:  05, 25K,  ,  3K 
*: DATA: 01 


SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 


SELECT 

0 

* 

DATA:  O: 

$ 

SELECT 

0 

$ 

SELECT 

o 

/*’ 

5' 

SELECT 

0 

$ 

SELECT 

o 

$ 

SELEC T 

o 

$ 

SELECT 

o 

Ifc 

SELECT 

o 

-dt: 

4' 

SELECT 

o 

0S29/N24 1D/CDEP  '  WCMAP /SJQO 
0S29 /N24 1 D/CDEP/ WCMAP/MOODSO 
0329/N24 1 D / CDEP / WCMAP/ HAHNSO 
0S29/N24 1  D/CDEP/ WCMAF'/OSAMSO 
0S29/N24 1 D/CDEP/ WCMAP/GE0R80 
0S2Q / M24 1 D / CDE P / WCMAP/ SPNGSO 
0S29/N24 1 D / CDEP/ WCMAP /SHAW80 
0S29/N24 1 D/CDEP / WCMAP / BSTR80 
0S29/N24 1 D/CDEP/WCMAP/CLRKGO 
0S29/M24 i D / CDEP / WCMAP / EDRF80 
0S29/N24 X D / CDEP / WCMnP /K ADN0OB 
0S29/N24 1 D/ CDEP/ WCMAP /NELLSOB 
0S29/M24 i D / CDEP / WCMAP /ALCN80 
0S29/N24. 1 D  /  CDEP  /WCMAP  /RSTN&O 
0S29 / N24 J  0/ C  DEP / WCMAP / 2 WE I SO 
0S29/N24 1 D/CDEP  ^ WCMAP /LUKESO 
0S29/N24 1  D/CDEP/WC'MAP/  EGLNSO 
0S2-VN24 1  D/CDEP  /  WCMAP  /bQLLSO 
0S29 / M24 I D / CDEP /WCMAP / LGLY80 
0S29/N24 1  D/C DEP/WCMAP/KADNSO 
0S2P/N24 1 D/CDEP/ WCMAP/ BBRG30 
0S29 / N24 1 D / CDEP / WCMAP / CPNWSO 
0S29/N24 1 D/ CDEP/ WCMAP /NELLSO 
0S29/N24 1 D/CDEP/WCMAP/H I LL30 
0S?'-VN24 1  D/CDEP  /  WCMAP  /  MDILSO 
GS29 / N24 1 D/CDEP / WCMAP / DAVS80 
0S29 /N24 l D / CDEP / WCMAP / M YRTSO 
0329/ N24 1 D / CDEP / WCMAP / NELLSOC 
0329 /N24 1 0/ CDEP/ WCMmP/BWAT  S  0 
0S29/N24 1 D/CDEP / WCMAP / MTHM80 
0S29 /N24 i D / CDEP / WCMAP / CANN80 
0S29/N24 1 D/CDEP / WCMAP/LAFN80 


FIGURE  F-3.  NOTIONAL  BASE  JCL  -  OS29/N241D/TEMPSFF 
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:<>■  lih'iliilliiii'iiiiiihiiliiii.iiSiiiisiiiiiiiii.itiiijiiiiifdi.iu!)!... 


V 

$ 

$ 

% 

$ 

$ 

$ 

$ 

3i 

$ 

5 

$ 

'$ 

$ 

$ 

$ 

*5 

$ 

£ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

t. 

$ 

* 

3. 

$ 

$ 

$ 


SELECT: 0S2C / N24 1 D/CDEP/SGM I NPT2/CLRKS0 
SELECT : 0329 / N24 1 D / CDEP / SGM I NPT2 / EDRFSO 
SELECT : 0S29/N24 1 D/CDEP/SGM I NPT2/KADN80B 
SELECT : 0S29/N24 1 D/CDEP/SGM I NPT2/NELL80B 
SELECT :  0S29/N24 1 D/CDEP/SGM I NPT2/ ALCN8G 
SELECT: 0S29/N24 1 D / CDEP / SGM I NPT2/ RSTN80 
SELECT : QS29/N24 1 D/CDEP/SGM I NFT2/ZWE I SO 
SELECT: 0S29/N24 1 D/CDEP/SGM I NPT2/LUKE80 
SELECT : 0S29/N24 1 D/CDEP/SGMI NPT2/EGLN80 
SELECT: 0S29/N241 D/CDEP/SGM INPT2/H0LLS0 
SELECT : 0S29/N24 1 D/C DEP/SGM I NPT2/LGLY8G 
SELECT : 0S29/N24 1 D/CDEP/SGM I NPT2/KADN80 
SELECT  s 0829 / N24 1 D/ CDEP / SGM I NPT2/ BBRG80 
SELECT : 0S29/N24 1 D/CDEP/SGM  Tr  'PT2/CPNW80 
SELECT : 0S29/M24 1 D/CDEP/SGM I NPT2/NELL80 
SELECT : 0S29 / N24 1 D / CDEP/ SGM INPT2/HI LL80 
SELECT : 0S29/N241 D/CDEP/SGM 1 NPT2/MD I L80 
SELECT : OS 29/N24 1 D/CDEP/SGM I NPT2/DAVS80 
SELECT :  0S29/N24 1 D/CDEP /SGM  J. NPT2/MYRT80 
SELECT: 0S29/M241D/CDEF /SGMINPT2/NELL30C 
SELECT : 0S29/N24 1 D/CDEP/SGMI NPT2/BUA780 
SELECT : 0S29 / N24 1 D / C DEP / SGM I NPT 2/MTHMSO 
SELECT : 0S29/N24 1 D/CDEP/SGM I NPT2/CAMN80 
SELECT : 0829 / N241D/ CDEP / SGM I MP T2/L AKN80 
SELECT: 0S29/N24 ID/ CDEP / SGM I NPT2/ HEYF80 
PRMFL: 07- W? S’ 0S29/N241 D/CDEP/ WCMAP/F4 
PftMFL:  08,  W,  8,  0S29 /N24 1  D/CDEP/UCMAP/F  1 5 
PRMFL: 09? «, S» 0S29/N24 1 D/CDEP/WCMAP/F1 6 
PRMFL: 10, W> S, 0S29/M24 1 D/CDEP/ WCMAP/ A 1 0 
PRMFL:  1 1 ,  hi,  S?  0S29/N24 1 D/CDEP/WCMAP/F i  1 1 
PRMFL! 12? W, 8?  0S29/N241 D/CDEP/SGM I NPT2/F4 
PRMFL: 13?  W, S?  0S29/N24 1 D/CDEP/SGM I NPT2/F 1 5 
PRMFL : 14- W? S, 0S29/N241D/CDEP/SGM3NPT2/F16 
PRMFL: 13? W? S? 0S29/N241D/CDEP/SGMINPT2/A10 
PRMFL: 16?  W,  0S29/N24 1 D/CDEP/ SGMI NPT2/F 1 1 1 
END-JOB 


FIGURE  F-3.  NOTIONAL  BASE  JCL  -  OS29/N241D/TEMPSFF  (CONT'D) 
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=RUN  QS29/N241D/TEMPSFF 
ENTER  FIRSTNAME  ? 

=NANCY  B 

ENTER  I DENT  ? 

=0S2011N241D  *  QS29UG0GDWIN 


JOB  SUBMITTED 
SNUMB  #  7445U 


FIGURE  F-4.  NOTIONAL 
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S  3 
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SSSSSS 
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SSSSS 
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ssss 


S5SSSSSSSSSSSSS3SSSSSSSSS3SS5SSSSSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSS3SSSSSSS3SS3SSSSS 

SSSSSSSSSSSSSSSSSSS3SSSSSSS3SSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


5S 

7U05U 

ENTERED  C 

AT  13.230  FROM  TSS/S  0-08-12 

0001 

S 

SNUMB 

700S1J 

oooa 

S 

COMMENT 

0S29BRIGGS  TSS  CARDIN 

0003 

SS 

USERID 

0S298R IGGSSaoaassusa# 

OOOtt 

3 

NOTE 

»*  NANCY  8  «*  JCL  =  0S29/N201D/TEMPSFF 

0005 

S 

IOENT 

OSaOllNaaiD  , QS29UGQ0DWIN 

0006 

s 

NOTE 

**  SOURCE  =  JGOSA/CDEP/ALL.NOT 

0007 

3 

OPTION 

FORTRAN, NOMAP 

oooa 

SS 

SELECT 

JGOSA/COEP/CALLNOT 

0009* 

s 

OBJECT 

0011* 

3 

OBJECT 

0013* 

S 

OBJECT 

0015 

AS 

EXECUTE 

0016 

3 

LIMITS 

os, as*, ,3« 

0017 

3 

DATA 

01 

0013 

33 

SELECT 

CSa9/N2aiO/C0EP/WCMAP/SJ8O 

0019 

S3 

SELECT 

osa9/NaaiD/coEP/wcMAp/Moooeo 

ooao 

SS 

SELECT 

osa9/Naaio/coEP/»CMAP/HAHNflo 

9021 

S3 

SELECT 

OS29/NaaiO/COEP/WCMAP/OSAN80 

ooaa 

S3 

SELECT 

0Sa9/NaaiD/C0EP/WCMAP/GE0R80 

ooa3 

SS 

SELECT 

OS29/MaaiO/CDEP/WCMAP/SPNG90 

ooaa 

SS 

SELECT 

CS29/NaclO/CDE?/VfCMAP/SHAW80 

00?5 

SS 

SELECT 

OS29/NaaiO/COEP/WCMAP/8STR30 

0026 

S3 

SELECT 

0Sa9/Naai0/C0Eo/WC«AP/CLS«30 

0027 

SS 

SELECT 

0Sa9/NaaiD/CDEP/'«CMAP/EDRF80 

ooaa 

S3 

SELECT 

0Sa9/NaolD/CDEP/WCMAP/K  ADN80B 

0039 

SS 

SELECT 

OSa9/N2alD/C0EP/WCMAP/NELL308 

0030 

SS 

SELECT 

0Sa9/Naai0/CDEP/aCMAP/ALCN80 

0031 

S3 

SELECT 

0Sa9/NaolD/C0EP/'oCMAP/RSTN80 

0032 

55 

SELECT 

QSa9/NaaiD/C0EP/wCMAP/ZWEI80 

0033 

S3 

SELECT 

OSa9/N2aiO/C0EP/VsCM4P/LUKS8O 

003a 

SS 

SELECT 

0S29/Naa 1D/CDEP/WCMAP/EGLN80 

0035 

S3 

SELECT 

GSa9/NaoiD/C0EP/*CMAP/H0Ll80 

0036 

SS 

SELECT 

osao/Naaio/coeo/wcMAP/LGLYao 

0037 

SS 

SELECT 

0Sa9/Naoi0/CDEP/hCMAP/KA0N80 

0033 

SS 

SELECT 

0Sa9/NaaiD/CDE°/i/»CMAP/88RG80 

0039 

SS 

SELECT 

0Sa9/Naai0/CDEP/?iCMAP/CPNYi80 

OOaO 

SS 

SELECT 

GS29/NaaiO/CDE°/WCv,AP/NELL30 

00  a  i 

SS 

SELECT 

OSa9/N2alD/C0EP/WCMAP/HlLL80 

ooaa 

35 

SELECT 

QSa9/NaaiO/CDEP/VYCMAP/M0IL80 

0003 

S3 

SELECT 

QSa9/Naol0/CDEP/y*CMAP/DAvS80 

OOaa 

SS 

SELECT 

OS29/NaalD/C0EP/WCMAP/MYRT30 

00a5 

53 

SELECT 

0Sa9/Naoi0/C0EP/«CMAP/NELL80C 

0006 

SS 

SELECT 

0Sa9/Naoi0/CDE°/YiCMAP/BWAT80 

YOOOOOOOOGOOO . .00 

YOOOOOOOOOOOOINSRTOOO 

YOOOOOOOOOQOONEWBASOO 
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0047 

oo  4a 

0044 
00  50 
0051 
0052 
0053 
0054 
0055 
0056 
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0059 
0060 
00  61 
0062 
0063 
0064 
0065 
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0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0073 
0079 
0080 
0081 
0082 
0083 
0084 
0035 
0086 
0037 
0083 
0089 
0090 
0091 
0092 

0093 

0004 

0095 
TOT  1 


7  SS 

8  SS 

9  SS 
0  SS 

1  s 

2  SS 

3  SS 
»  SS 
3  SS 
3  SS 
'  SS 
!  SS 
>  SS 
)  SS 
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SELECT 

SELECT 

SELECT 

SELECT 

OATA 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

SELECT 

PRMPc 

P4MFL 

P  rmfC 

P9MFL 

PRMF|_ 

PRMFL 

°RMF(. 

PRMFI. 

PRMFL 

PRMFL 

E-NOJOS 

COUNT  TH 


OS29/N2410/CDEP/WCMAP/MTHM80 

QS29/N241D/CDEP/WCMAP/CANN80 

OS29/N241O/CO6P/14CMAP/LAKN80 

QS29/N2910/CQEP/WCMAP/HEYF30 

02 

OS29/N2410/COEP/SGMINPT2/SJ80 

0S29/N2410/C0EP/SGMINPT2/M00D80 

0S29/N2410/CDEP/SGMINPT2/HAHN80 

0S29/N2410/COEP/SGMINPT2/OSAN80 

0S29/N2410/C0EP/SGMINPT2/GEQR80 

OS29/N241O/C0EP/SGMJNPT2/SPNG80 

0S29/N241D/CDEP/SGMINPT2/SHAH80 

OS29/N2410/CDEP/SGMINPT2/BSTR80 

OS29/N2410/C0EP/SGMINPT2/CLRK80 

OS29/N2U1D/COEP/SGMINPT2/EDRF80 

0S29/N2410/C0EP/SGMINPT2/KA0N80B 

OS29/N2410/CDEP/SGMINPT2/NELL808 

0S29/N2410/C0EP/SGMINPT2/ALCN80 

0S29/N2410/C0EP/SGMINPT2/RSTN80 

0S29/N2410/C0EP/SGMINPT2/2WEIS0 

0S29/N?« 10/CO EP/SGMINPT2/LUKE80 

OS29/N2410/C0EP/SGMINPT2/EGLN80 

0S29/N2410/CDEP/SGMINPT2/H0LL80 

OS29/N2aiD/C0EP/SGMINPT2/LGLT80 

OS29/N2alO/C0EP/SGMINPT2/KAON8O 

OS29/N2410/CDEP/SGMINPTP/8BRG80 

0S29/N2U10/C0EP/SGMINPT2/CPNW80 

OS29/N2410/CDEP/SGM1NPT 2/NELL  80 

OS29/N2aiO/C0EP/SGMINPT2/HXLL30 

OS29/N2410/C0EP/SGMINPT2/M0IU80 

0S29/N2410/C0EP/SGMINPT2/0AVS30 

0S29/N2410/C0EP/SGMINPT2/MYRT80 

0S29/N2410/C0EP/SGMINPT2/NELL30C 

0S29/N241O/C0EP/SGMINPT2/BWAT80 

0S29/rj2aiD/CO6P/SGMINPT2/MTHM80 

OS29/N2aiD/CDEP/SGHINPT2/CANN60 

0S29/N2410/C0EP/SGMINPT2/LAKN80 

GS29/N2  0/COEP/SGMINPT2/HEYF30 

07,rt,S.0S29/N2410/C0EP/WCMAP/Fu 

03,;»,S,QS29/N2410/C0EP/WCMAP/Fi  5 

09,4fS.OS29/N2aiD/CDEP/WCMAP/Fl6 

10.iY,3,QS29/N24l0/C0EP/WCNAP/Al  0 

1 1  # W.S,QS29/N2alD/C0EP/WCMAP/Fl  j  t 

12, rt.S,QS29/N2al0/CDEP/SGMINPT2/Fa 

13, «,3»0S29/N2ai0/C0EP/SGMINPT2/Fig 
l4r8,S,OS29/N2aiD/COEP/SGMINPT2/Fl6 
15»W»S.0529/N2aiD/CDEP/$GMINPT2/Aio 
16.  a,  S,OS29/N2aiO/CDEP/SGMINPT2/Fl 1 1 

IS  JOS  =  00132a 


BEGIN  ACTIVITY  -01- 

»  NORMAL  termination 

START  la. 787 
STQa  la. 917 
SWAP  0.116 
LAPSE  0.130  PC 


GELOAO  09/01/81  SWsOOOOOOOOOOOO 
AT  095233  1=5020  SWsOOOOOOOOOOQO 


LINES 

LIMIT 

D  TYPE 


01  R  0191  * 
02  R  0191  * 
R*  R  0191  * 
07  R  Oi9i  p 
08  R  0191  P 
09  R  0191  P 


PROC  0.0024 
LIMIT  0.0500 


I/O 

LIMtt 


FO/MT 

IS/ac 

MS/SE 

25 

25 

25 

25 

25 

25 

0 

13 

18 

1 

1 

1 

l 

1 

1 

1 

1 

1 

IU  5  MEMORY 

CU  5  m*T 

ADDRESS  Ts 

0-08-10 
0-08-10 
0-08-10 
0-03-16 
0-08-16 
V-Ofl-1 6 


FIGURE  F  5.  SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CONT’m 


LIST 

RC-06 


PROCESSOR 
5  .08 


10  R  0191  P 

11  R  0191  P 

12  R  0191  P 

13  9  0191  P 
la  R  0191  P 

15  S  0191  P 

16  R  0191  P 
P*  SYOUT 

L*  R  0191  *  1* 

31  LINES  AT  STA.  XL 
203  LINES  AT  STA.  XL 


I/O 
S  .11 


CORE 
S  .25 


TOTAL 
S  .49- 


0-08-16 

0-08-16 

0-08-16 

0-08-16 

0-08-16 

0-08-16 

0-08-16 

0-08-02 


-  7445U,  ACTIVITY  »  =  01,  REPORT  CODE  =  7a,  RECORO  COUNT  =  000031 


FIGURE  F-5.  SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CONT'D) 
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FIGURE  F-5.  SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CONT'D) 


F-10 


0.2452 

0. 

0.1379 

0.1637 

0.2966 

0.1526 

0.0350 

0.1720 

0.0360 

0.1590 

0.0605 

0.1493 

0.0538 

0.1393 

0.1088 

0.0499 

0.1635 

0.0554 

0. 

0. 


0.1631 

0.0739 

0.1237 

0.0110 

0.0329 

0.0481 

0.0279 

0.0578 

0.0058 

0.1263 

0.1044 

0.1473 

0.0451 

0.1443 

0.0355 

0. 

0. 

0. 

0. 

0. 


0.1275 

0.eS9Q 

0.3361 

0.2994 

0. 

0.0361 

0.0774 

0.0625 

0.002a 

0.0395 

0.6539 

0.2091 

0.0304 

0.6223 

0.0212 

0.0475 


0.1577 

0. 

0.1432 

0.1510 

0.0512 

0.0817 

0.0348 

0.1919 

0.0564 

0.1551 

0.0426 

0.1248 

0.0385 

0.0526 

0.0996 

0.0639 

0.1597 

0.1437 

0. 

0. 


0.2227 

0.1141 

0.1511 

0.0272 

0.0323 

0.0558 

0.0322 

0.0664 

0.0079 

0.1173 

0.0975 

0.1240 

0.0689 

0.1352 

0.1206 

0. 

0. 

0. 

0. 

0. 


0.0466 

3.0622 

0. 

0.3130 

9.0142 

0.0942 

0,0770 

0. 

0.0166 

0.0409 

0. 

0.3288 

0.2361 

0.3535 

0.1764 

0.0384 


0. 

0.1690 

0.0701 

0.0701 

0.0870 

0.0241 

0. 

0.0893 

0.0454 

0.0639 

0.0121 

0.0775 

0.0604 

0.1123 

0.1215 

0.0366 

0.1557 

0.0259 

0. 

0. 


0.2362 

0.1066 

0.2259 

0.0416 

0.1654 

0.1138 

0.0547 

0.0935 

0.0089 

0.1755 

0.2058 

0.1497 

0.0638 

0.1956 

0.2962 

0. 

0. 

0. 

9. 

0. 


0.0320 

0.0032 

0.0730 

0. 

0.0149 

0.0588 

0.1430 

0. 

0 .0 1  67 
0.0384 
0.0114 
0.0532 
0.2995 
0.5921 
0.1212 
0.4938 


0.2741 

0. 

0.1065 
0.1599 
0.0971 
0.1424 
0.0947 
0.1804 
0.0388 
0.0717 
0.04 35 
0.1018 
0.0359 
0.0838 
0.1796 
0.0401 
0.4254 
0.1680 
0. 

0. 


0.2460 

0.1246 

0.2342 

0.0087 

0.0532 

0.0899 

0.0725 

0.0870 

0.1307 

0. 

0.1000 

0.0669 

0.0320 

0.0808 

0.M43 

0. 

0. 

0. 

0. 

0. 


0.0307 

0.0206 

0.0275 

0.0052 

0.0293 

0.0695 

0.0761 

0.1403 

0.0119 

0.0313 

0.0149 

0.0537 

0.0264 

0.5940 

0.1751 

0.2173 


0. 

0.1618 

0.1745 

0.3469 

0.0527 

0.1227 

0. 

0.1991 

0.0802 

0.1545 

0.1222 

0.1119 

0.0683 

0.0049 

0.1303 

0.0619 

0.4264 

0.0061 

0. 

0. 


0.1812 

0.1164 

0.1621 

0.0437 

0.0395 

0.0698 

0.0841 

0.1084 

0. 

0.1516 

0.0402 

0.2379 

0.0530 

0.1562 

0.1315 

0. 

0. 

0. 

0. 

0. 


0.0183 

0. 

0.0161 

0.0607 

0.0248 

0.1054 

0.1284 

0.1722 

0.1426 

0.0475 

0.0093 

0.0377 

0.0282 

0.0127 

0.3525 

0.4911 


0.1861 

0. 

0.1109 

0.1177 

0.0630 

0.0669 

0.0501 

0.1137 

0.0642 
0.0797 
0.041S 
0.0880 
0.0933 
0.0323 
0 .1685 
0.0914 
0.2573 
0.1063 
0. 

0. 


0.2308 

0.0982 

0.2312 

0.0199 

0.1781 

0.1152 

0.0656 

0.0900 

0.2809 

0. 

0.0671 

0.2218 

0.0425 

0.2038 

0.2960 

0. 

0. 

0. 

0. 

0. 


0.5141 

0. 

0.0343 

0.0451 

0.0376 

0.0272 

0.2316 

0.2264 

0.1720 

0.1769 

0.0122 

0.0541 

0 . 02«3 
0.0304 
0.0004 
0.7259 


3.2683 

0.1865 

0.3631 

0.1001 

0.1361 

0. 

0.1541 

0.0528 

0.1721 

0.0610 

0.1595 

0.0938 

0.0104 

0.3587 

0.0665 

0.3850 

0.0196 

0. 

0. 


3.2296 

0.1191 

0.1810 

0.0136 

0.0420 

0.0250 

0.0451 

0.0345 

0. 

0.0624 

0.1162 

0.1762 

0.0180 

0.2245 

0.136a 

0. 

0. 

C. 

0. 


0./509 

0.4132 

0.0690 

0. 

0.0548 

0.0411 

0.0573 

0.248° 

0.1983 

0.1640 

0.1612 

0.0403 

0.0210 

0.0182 

0.0716 

0.1078 


0.2152 

0.1413 

0.0985 

0.0230 

0.0419 

0.0850 

0.0466 

0.0897 

0.0175 

0.0672 

0.0123 

0.1001 

0.0191 

0.1644 

0.2623 

0. 

0. 

0. 

0. 


0.2287 

0.1070 

0.09ai 

0. 

0.0313 

0.0614 

0.0838 

0.0226 

0.0539 

0.0439 

0.0416 

0.030? 

0.0577 

0. 

0.0802 

0.1162 

0. 

0. 

0. 

0. 


0.4513 

0.3431 

0.2739 

0. 

0.0283 

0.0376 

0.0410 

0.0279 

0.3673 

0.1928 

0.1456 

0.0397 

0.0215 

0.0469 

0.0320 

0.0124 


FIGURE  F-5.  SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CONT'm 


O  O  O  o  o  o  o 


0319 

0a23 

0597 


0.0130 

0.0629 

0.0588 

0.1911 

0. 

0. 

0. 


0.3635 

0.0386 

0.0149 

0.0372 

0.0992 

0. 

0. 


0.3375 

0. 

0.0393 

0.1429 

0.0898 

0. 


0.1938 

0. 

0. 

0.1854 

0.0681 

0. 


0.4043 

0. 

0. 

0. 

0.0840 

0. 


0.0372 

0. 

0. 

0. 

0. 

0. 


FIGURE  F-5. 


F-12 


Fa  NOTIONAL  base 


AFSC 

321x2 

322X2 

325X0 

326X0 

326X3 

326X4 

404R1 

423E2 

a23E3 

323X0 

023X1 

423X4 

426X2 

427R0 

427R5 

431E1 

431X1 

462X0 


PS  [BREAK] 
0.2441 
0.1818 
0.158a 
0.2194 
0.1577 
0.1315 
0.0523 
0.1716 
0.0570 
0.1174 
0.0645 
0.0998 
0.0637 
0.0896 
0.1584 
0.0550 
0.1766 
0.1209 


NUM.  CSEfcS 
23.7923 
38.4951 
20.9150 
22.6573 
23.9157 
13.0916 
13.8646 
11.2019 
10.2457 
12.0121 
8.8945 
11.8969 
10.964Q 
6.2760 
13.4809 
12.0752 
129.7098 
15.3978 


SVC.  RATE 

0.1407 

0.2098 

0.1453 

0.1283 

0.1452 

0.1636 

0.1732 

0.092a 

0.1015 

0.1666 

0.1479 

0.1487 

0.127u 

0.4741 

0.2897 

0.0323 

0.1947 

0.3341 


FIGURE  F-5.  SAMPLE  NOTIONAL  BASE  P.  ,M  ruu  (CONT'D) 


F-13 


FIS  notional  BASE 


AFSC 

SR  (BREAK] 

NUM.  CREWS 

SVC.  RATE 

326X6 

0.2120 

17.0378 

0 . 1008 

326X7 

0.1188 

16.2278 

0.1200 

326X8 

0.1650 

15.2604 

0.1510 

023E2 

0.0309 

4.0033 

0.1636 

023E3 

0.07O5 

10.0790 

0.1405 

a23X0 

0.0797 

17.3672 

0.1365 

023X1 

0.0577 

12.0983 

0.1390 

«23Xa 

0.0878 

17.3303 

0.1207 

026R2 

0.0602 

12.5277 

0.1907 

026X2 

0.1276 

17.5025 

0.1046 

02790 

0.1012 

3.687a 

0.5670 

027X5 

0.1555 

10.2569 

0.2322 

031E1 

O.OSOi 

13.2380 

0.0916 

031X1 

0.1555 

152.5317 

0.2171 

062X0 

0.1967 

10.4286 

0.2295 

FIGURE  F-5.  SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CONT'D) 


F 1 6  NOTIONAL  BASE 


AFSC 

PR  [BREAK] 

MUM.  CRE'ffS 

SVC.  RATE 

326X6 

0.2187 

11.9364 

0.1613 

326X7 

0.1025 

9.0806 

0.1370 

326X6 

0.0917 

11.6295 

0.1474 

404R1 

0.0052 

2.1300 

0.3527 

423E2 

0.0306 

9.0099 

0.1036 

423E3 

0.0533 

15.9179 

0.0936 

423X0 

0.0810 

15.8387 

0.1411 

423X1 

0.0233 

10.1520 

0.1255 

423X4 

0.0523 

14.0977 

0.0679 

426R2 

0.0«39 

5.3300 

0.1472 

426X2 

0.0432 

12.7867 

0.1460 

427R0 

0.0302 

5.6570 

0.7443 

427R5 

9.0542 

12.3402 

0.3194 

431E1 

0.0004 

5.5800 

0.0370 

431X1 

0.0841 

104.7956 

0.2328 

462X0 

0.1092 

9.9469 

0.3680 

FIGURE  F-5. 

SAMPLE  NOTIONAL 

BASE  PROGRAM  RUN 

(CONT'D) 

F-15 


? 

Ato  MOTIONAL  BASE 


4FSC 

°R  tBUEAKl 

321x2 

0.0331 

322R2 

0.0157 

325X0 

0.0*59 

325X1 

0.0524 

328S3 

0.0440 

326X0 

0.0560 

326X1 

0.0542 

404R1 

0.0124 

•»2  3E2 

0.0424 

423E3 

0.0130 

423x0 

0.0437 

423X1 

0.0245 

423X4 

0.0236 

426x2 

0.0492 

42790 

0.0522 

42795 

0.0424 

431E1 

0.0504 

431X1 

0.1514 

462x0 

0.0903 

>.  CBEftS 

SVC.  SATE 

10.5439 

0.1766 

6.0751 

0.3827 

23.1126 

0.1488 

10.0469 

0.2133 

18.2807 

0.1622 

19.9384 

0.2591 

6.7763 

0.2747 

11.1821 

0.1093 

5.5659 

0.0879 

9.9723 

0.0625 

11.3102 

0.1994 

8.7845 

0.1697 

11.0989 

0.1926 

13.8167 

0.1471 

6.1569 

1.1767 

14.9643 

0.3171 

12.1983 

0.1463 

130.5224 

0.2064 

7.2983 

0.2230 

) 


FIGURE  F-5. 


a 


SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (CON'T’D) 


F-16 


rill  MOTIONAL  3*S£ 


4FSC 

99  E3SEAK1 

MUM.  CaE'*S 

326*6 

0.6455 

36.6108 

326*7 

0.3652 

22.7393 

326*3 

0.2991 

19.0317 

404R1 

0.0197 

5.3103 

a23E2 

0.0824 

6.0051 

J23E3 

0.1666 

IS. 6914 

423X0 

0.1996 

15.4583 

423*1 

0.2261 

15.6*66 

423*4 

0.3355 

11.6129 

426X2 

0.215* 

12.9039 

42790 

0.2062 

6.36*5 

427*5 

0.5516 

16.4563 

431E1 

0.213* 

15-1373 

431X1 

9.5006 

165.0*32 

462X0 

0.2973 

19.7*66 

SVC. 


FIGURE  F-5. 


SAMPLE  NOTIONAL  BASE  PROGRAM  RUN  (C£ 


9*T£ 

3.1020 

0.1163 

9.1136 

0.4621 

0.1005 

0.0961 

0.1664 

0.1513 

0.3610 

0.1755 

0.56S5 

0.357a 

3.1044 

0.1616 

3.2127 


INT'D) 


SSS53SSS3SSS5SS3SSSSSSSSSSSSSSSS3SSSSSSSSSS3SSSSS53S35SSSSSSSSSSSSSSSSSSS3SSSS3S3 

3SSSSS3SSSSSS$SSSS5SS0SS3S$SSSSSSSSSSSI33SSSS335SSSSSSS5SSS$S$355SSSSSS3SSSSSS$SS 


ssss 


ssss 


S  3  S  $  $  S 

s 

3 

s 

s 

3 


S3 
S  3 
S  3 
SSSSSS 
3 
S 


ss 

3  3 
3  3 

SSSSSS 
3 
3 


S  5  3  3  3  S 

S  3 

$3333  3 

3  5 

3  3  3 

SSSS 


SSSS 


ssss 


ssss 


SSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSS3SSSSSSS3SSSSSS3SSSSSSSSSSSSSS53SSSSSSSS33SSSSS 
3SSSSSSSS&SSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSS 
—30—  DATE  09-01-81  TIME  15.95a  ID  =  XL  C 
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APPENDIX  G.  CDEP  LISTINGS 
JG05A/CDEP/CSTAR/P2 . C 
Function. 

Listing.  Figure  G-l. 

JG05A/CDEP/CSTAR/P3 . C 
Function. 

Listing.  Figure  G-2. 


G-l 


000 1 0 
00020 
00030 
000^0 
00050 
00060 
00070 
00030 
00090 
00 1 00 
001 10 
00 1 20 
00 1 30 
00140 
00 1 50 
00 1 60 
00170 
00130 
00 1  '70 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00230 
00230 
00300 
003 1 0 
00320 
00330 
00340 
00350 
00360 
00370 
00330 
00390 
00400 
00410 
00420 
00430 
00440 
00430 
00460 
0047  0 
00430 
00490 
00500 
00510 


1 DENT I F I CAT I ON  D I V 1 S I ON - 
PROGRAM- ID.  SELEC. 

AUTHOR.  J.  S.  BAMKEY  WRIGHT-PATTERSON  APB,  OHIO  ( AFMSMET '> 
DATE- WRITTEN.  MAY-JUNE  1977. 

DATE-COMPILED. 

REMARK’S . 

THIS  IS  THE  SELECTION  PROGRAM  OF  THE  SELECTION  PHASE  OF 
THE  COMBI NED-D AT A-EX TRACT I ON-PROGRAM  SYSTEM.  IT  TAKES  A 
SERIES  OF  DIRECTIVES  INPUT  BY  THE  USER  AND  TRANSLATES  THEM 
INTO  TABLES  OF  SELECTION  CRITERIA.  THE  PROGRAM  USES 
THESE  CRITERIA  TO  CHOOSE  SELECTED  RECORDS  FROM  THE  BASE- 
LEVEL  MAINTENANCE  TRANSACTION  HISTORY  FILE  ( ABD6DA )  AND  TO 
SHUNT  THEM  OR  PARTS  OF  THEIR  DATA  TO  VARIOUS  FILES. 

RECORDS  THAT  DO  MOT  FIT  THE  SELECTION  CRITERIA  AT  SOME 
POINT  ARE  GIVEN  A  REJECT  REASON  CODE,  SENT  TO  A  REJECT 
FILE,  AND  HAVE  THEIR  PRESENCE  AND  ANY  MANHOURS  TALLYED 
FOR  GROSS  ACCOUNTING  IN  THE  SELECTION  PROGRAM  OUTPUT 
SUMMARY  (REPORT  SCO).  SOME  SELECTED  RECORDS  ARE  CONDENSED 
AND  SENT  TO  THE  SELECTION-REPORT  FILE  FOR  PROCESSING 
BY  THE  SELECTION-REPORT  PROGRAM.  THE  REMAINDER  OF  THE 
RECORDS  ARE  CONDENSED  AND  SENT  TO  THE  COMBINATION  PHASE 
OF  THE  SYSTEM  FOR  FURTHER  MASTICATION  AND  REPORTING. 


I NTERNAL ( EXTERNAL )  FILE  NAMES/CODES  DESCR I PT I ON 

INPUT  FILES 

ABD6D A-F I l_E  <  DA >  -  BASE-LEVEL  MAINTENANCE  TRANSACTION 
HISTORY  FILE 

D I RECT I VES-F I LE < D I )  -  USER  DIRECTIVES  GIVING 
SELEC T I ON  CR I TER I A 

D056B-B4-MA3TER-FTLE ( B4 )  -  AFLC  D056B  FILE  THAT  CON¬ 
TAINS  CODUMENTARY  INFORMATION  FOR  ALL  THE  WORK 
UNIT  CODES  (WUC'S)  ASSOCIATED  WITH  A  GIVEN 
MDS/ A I RC RAFT-SYSTEM . 

OUTPUT  FILES 

D I RECT I VE-L I ST-F I LE ( DL )  -  LOG  OF  USER  INPUT  DIREC¬ 
TIVES-  WITH  '  7R0R  MESSAGES  AS-  APF'ROF'RI  AT  E 

SCO— FILE < SO )  -  REPORT  SCO  -  RECORD  SELECTION 

SUMMARY  -  SHOWING  THE  GROSS  REDISTRIBUTION  OF 
ABD6DA  RECORDS  AND  MANHOURS  FOR  THE  REASONS 
STATED  ON  THE  REPORT 

SO 1 -F I LE ( S 1 )  -  REPORT  SOI  -  FORMALIZED  LISTING  OF 
SELECTION  CRITERIA  AS  DEFINED  BY  USER  INPUTS 
AND  INTERNAL  DEFAULTS 

SOI —INDEX— F I LE (XI)  -  CONTAINS  PRINT  IMAGE  RECORDS 
OF  THOSE  SOI -FILE  RECORDS  THAT  AFPLY  TO  ThE 
COMBINATION  PHASE  REPORTS.  USED  THERE. 


AFSC— INDEX-FILE ( X2>  -  CONTAINS  THE  SORTED  RECORDS 
OF  1)  AFSC-’S  ASSIGNED  TO  UQRKCENTERS  BY  USER 
DIRECTIVES  AND  2)  THE  2  DIGIT  NUMERIC  INDEX 
( 0 1 D= I NDE X <=99 )  ASSIGNED  TO  THE  AFSC  BY  THIS 
PROGRAM.  USED  DURING  COMBINATION  PHASE  REPORTS. 


FIGURE  G-l .  JG05A/CDEP/CSTAR/P2.C  (DECOMPILED  VERSION) 
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00520 
00530 
00540 
00550 
00560 
00570 
00530 
00520 
00600 
006 1 0 
00620 
00630 
00640 
00650 
00660 
00670 
00630 
00620 
00700 
00701 
00702 
00703 
00704 
007 1 0 
00720 
00730 
00740 
00750 
00760 
00770 
00*780 
00720 
00300 
008 1 0 
00320 
00330 
00840 
00850 
00860 
00870 
00830 
00890 
00900 
009  i  0 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 


SRD-WDC-RPT- INDEX-FILE <  X3)  -  FILE  SHOWING  USER- 
DEFINED  3RD,  WHEN— D I SCO VERED-CODE  ,  +  ON /OFF 
EQUIPMENT  COMBINATIONS  ASSOCIATED  WITH  THE 
COMBINATION  PHASE  REPORT  ID'S  SELECTED  BY 
THE  USER,  USED  IN  THE  COMBINATION  PHASE. 

COMB I NAT I ON-FILE (CO)  -  CONTAINS  CONDENSED  +  REFOR¬ 
MATTED  ABD6DA  RECORDS  THAT  PASSED  ALL  THE 
SELECTION  CRITERIA  TO  GET  THEM  PASSED  TO 
THE  COMBINATION  PHASE.  USED  THERE. 

SELECT I ON-REPORT-FILE (SR)  -  CONTAINS  CONDENSED  + 
REFORMATTED  ABD6DA  RECORDS  THAT  PASSED  THOSE 
SELECTION  CRITERIA  TO  MAKE  THEM  APPEAR  ON 
THE  SELECTION  REPORTS  SA  THE  SH.  ALSO  CONTAIN 
PREFIX  RECORDS  FOR  EACH  POSSIBLE  SELECTION 
REPORT.  USED  BY  THE  SELECTION  PHASE  REPORT 
GENERATING  PROGRAM. 

REJECT-FILE (RJ)  -  CONTAINS  ABD6DA— FORMAT  RECORDS 
WITH  REJECTION  CODES  ADDED  TO  THEM.  NOT 
CURRENTLY  USED. 

!KNT-INDEX-FILE<KN>  -  CONTAINS  AFSC  INDEX,  TYPE  OF 
MAINTENANCE  CODE,  WHEN  DISCOVERED  CODE,  ON/OFF 
EQUIPMENT  MAINTENANCE  INDICATOR,  AND  SRD.  THI 
FILE  IS  READ  BY  A  LATER  DATA  ANALYSIS  PROGRAM. 

ENV I RONMENT  D I V I S I ON . 

CONF I GURAT I ON  SECT I ON . 

I NPUT— OUTPUT  SECT I ON . 

FILE-CONTROL. 

SELECT  ABD6DA-F I LE 
ASSIGN  TO  DA. 

SELECT  OPTIONAL  B056B—B4— MASTER-FILE 
ASSIGN  TO  B4. 

SELECT  DIRECTIVES-FILE 
ASSIGN  TO  DI. 

SELECT  D I RECT I VE-L I ST-F I LE 

ASSIGN  TO  DL  FOR  LISTING. 

SELECT  SOO-FILE 

ASSIGN  TO  SO  FOR  LISTING. 

SELECT  SOI -FILE 

ASSIGN  TO  SI  FOR  LISTING. 

SELECT  SOI -INDEX-FILE 
ASSIGN  TO  XI. 

SELECT  AFSC- INDEX -FILE 
ASSIGN  TO  X2. 

SELECT  SRD-WDC-RPT- I NDEX-F I LE 
ASSIGN  TO  X3. 

SELECT  COMB I  NAT I ON-F I LE 
ASSIGN  TO  CO. 

SELECT  SELECT I ON-REPORT-F I LE 
ASSIGN  TO  SR. 

SELECT  REJECT-FILE 
ASSIGN  TO  RJ. 


FIGURE  G-I.  JG05A/CDEP/ CSTAR/P2 . C 
(UNCOMFILED  VERSION  CONT’D) 
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01001 

(select  knt- index -file! 

01002 

1  ASSIGN  TO  KM.  ) 

0 101 0  I -0 

-CONTROL. 

01020 

APPLY  SYSTEM  STANDARD  FORMAT  ON 

01030 

A8D60A-FILE 

01040 

D056B-B4-M ASTER-F I LE 

01050 

DIRECTIVES-FILE 

0 1 060 

D I RECT I VE-L I ST-F I LE 

01070 

SOO-FILE 

0 1 080 

SOI -FILE 

01090 

SOI -INDEX-FILE 

0 1 1 00 

AFSC- INDEX -FILE 

OHIO 

SRD-NDC-RF'T- 1 NDEX-F I  LE 

01 120 

COMBINATION-FILE 

0 1 1 30 

SELECT I ON-REPORT-FILE 

01140 

REJECT -FILE 

01141 

{ KNT-INDEX-FILE.} 

01150  * 

0 1 1 60  / 

0 1 1 70  DATA  D I V I S 1 ON . 

01180  FIL 

E  SECTION. 

01190  * 

01200  si- 

01210  FD 

A8D6DA— FILE 

01220 

LABEL  RECORD  STANDARD. 

01230  01 

6D A— RECORD . 

01240 

03  6DA-1-79. 

01250 

05  6DA-JCN 

PIC  X  <  7 ) , 

0 1 260 

05  6DA-WCTR 

PIC  X  <  5 ) , 

01270 

05  6DA-EQ- ID-NO. 

01280 

07  FILLER 

PIC  X. 

01290 

07  6DA-SRD-1 

PIC  X. 

0 1 300 

07  FILLER 

PIC  XXXX 

0 1 3 1 0 

05  FILLER 

PIC  X (32 

01320 

05  6D A-TYPE-MA I NT 

PIC  X. 

0 1 330 

05  6DA-C0MP-P0S 

PIC  X. 

0 1 340 

05  6DA-TCT0-M0. 

0 1 350 

07  6DA— WUC. 

0 1 360 

09  6DA-WUC- 1 -3 

. 

01370 

1 1  6DA-WUC 

-1-2. 

0 1 380 

13  FILLER  PIC 

01390 

13  6DA 

-WUC-2-NL' 

0 1 400 

11  FILLER 

PIC  X. 

01410 

09  FILLER 

PIC  XX. 

01420 

07  6DA-ATC 

PIC  X. 

01430 

07  6DA-WDC 

PIC  x. 

01 440 

05  6DA-H0U-MAL 

PIC  XXX. 

01450 

05  6DA-UNITS 

PIC  XX. 

01460 

05  6DA-ST  ART-STOF'-T  I MES . 

01470 

07  6DA— ST  ART— HRS 

PIC  99. 

0  i  480 

07  6DA-ST  ART-M I NUT 

ES  PIC 

0 1 490 

07  6DA— STOP-DAY 

PIC  99Q - 

0 1 500 

07  6DA— STOP— HRS 

PIC  99. 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.C 

(UNCOMULED  VERSION 

CONT'D) 
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i.<j  x  cn  ''j 


PIC  99 


01510 

07  6DA— STOP-MI  MUTE: 

PIC  9 

0 1 520 

05  6DA-CREWSIZE 

PIC 

9. 

01530 

05  6DA-LAB0R-CATEG0RY 

PIC¬ 

X. 

01540 

05  6DA-ACTTVITY-ID 

RIC 

XX. 

01550 

03 

FILLER 

PIC 

X (273. 

01560 

03 

6D A- ASSIGN-CODE 

PIC 

XX. 

01570 

03 

FILLER 

PIC 

X  s  /  3  • 

01530 

03 

6DA-SUEEN-BEE-FLAG 

PIC 

X. 

01590 

03 

6DA-1 17 

PIC 

X. 

0 1 600 

03 

6DA-MANHRS 

PIC 

9999. 

01610 

03 

6DA-DAT  A-CLASS 

PIC 

X. 

01620 

03 

6DA-REC-ID. 

01630 

05  6DA-REC- I D-NUM 

PIC 

9. 

01640 

03 

6DA-E0U I P-CL  ASS- 

PIC 

XX . 

01650 

03 

FILLER 

PIC 

X ( 37  3 . 

o 

y* 

i> 

i> 

O 

01 

6  DA 

-6-AND-7-REC— DATA . 

01670 

03 

FILLER 

PIC 

X ( 53  3 . 

0 1 630 

03 

6DA-7-RI 

PIC 

X. 

01690 

03 

6DA-6-WUC- 1 -2 

PIC 

XX. 

01700 

03 

FILLER 

PIC 

X  <  93 . 

01710 

03 

6DA-6-R I 

PIC 

X. 

01720 

01730 

.X. 

03 

FILLER 

PIC 

X ( 96  3 . 

01740 

* 

01750 

FD 

DOS 

6B-B4-M ASTER-F I LE 

03.760 

LABEL  RECORD  STANDARD. 

01770 

01 

B4- 

REC. 

01780 

03 

FILLER 

PIC 

XX. 

01790 

03 

B4-MDS 

PIC 

X  ( 7  3 . 

01800 

01810 

•Sr 

03 

FILLER 

PIC 

X  <  7 1 3 . 

01820 

* 

01830 

FD 

DIRECT I VES-FJLE 

0 1 840 

LABEL  RECORD  STANDARD. 

01850 

01 

DIRECTIVE-RECORD 

PIC- 

X ( 80  3 . 

01360 

* 

01870 

* 

0 1 880 

FD 

D I RECTI VE-L I ST-F I LE 

o 

0 

05 

O 

LABEL  RECORD  STANDARD. 

0 1 900 

01 

D I RECTI VE-L I 3T-REC 

PIC 

X < 84  3 . 

01910 

■£ 

0 1 920 

* 

01930 

FD 

800 

-FILE 

0 1 940 

LABEL  RECORD  STANDARD. 

01950 

01 

SOO 

-REC 

PIC 

X ( 84  3 . 

01960 

$■ 

01970 

# 

01980 

FD 

SOI 

-FILE 

01990 

LABEL  RECORD  STANDARD. 

02000 

01 

SOI 

-REC 

P I C 

X ( 84  3 . 

020 1 0 

a- 

02020 

* 

02030 

FD 

SOI- 

INDEX-FILE 

FIGURE  G-l .  JG05A/CDEP/CSTAR/P2 . C 
(UNCOMPILED  VERSION  CONT'D) 


G-5 


02040 

02050 

02060 

02070 

02080 

02090 


LABEL  RfcCORD  STANDARD. 

SO 1 - I NDEX-RECORD . 

03  SO 1 - I NDEX-L I NESK I P 
03  SOI -INDEX -DETAIL-DATA 


02100 

PD 

AFSC- INDEX-FILE 

02110 

LABEL  RECORD  STANDARD. 

02120 

01 

afsc-index-rec. 

02130 

03  A- I -AFSC- INDEX 

02140 

03  A- I —AFSC 

02150 

02160 

-s- 

02170 

FD 

SRD-WDC-RPT- index -file 

02180 

LABEL  RECORD  STANDARD. 

02190 

01 

SRD-WDC-RPT- I NDEX-REC 

02200 

02210 

-R- 

02220 

FD 

REJECT-FILE 

02230 

LABEL  RECORD  STANDARD. 

02240 

01 

REJECT-RECORD. 

02250 

03  FILLER 

02260 

03  RJ-REASON 

02270 

03  FILLER 

02280 

* 

02290 

*• 

02300 

FD 

SELECT I OM-REPORT-F I LE 

02310 

LABEL  RECORD  STANDARD, 

02320 

01 

SELECT I ON-RECORD 

02330 

■a- 

02340 

02350 

FD 

COMBINATION-FILE 

02360 

LABEL  RECORD  STANDARD, 

02370 

01 

COMB I NAT I ON— RECORD . 

02380 

03  COMBI-JCN 

02390 

03  COMB I -EQ- I D-NQ 

024Q0 

03  COMB I-LATC- INDEX 

02410 

03  COMBI— WUC 

02420 

03  COMBI -COMP-POS 

02430 

03  COMBI -START-TIME 

02440 

03  COMB I -STOP-T I ME 

02450 

03  COMBI— MANHRS 

02460 

03  COMBI -AFSC- INDEX 

02470 

03  COMB I -CREWS I Z  E 

02480 

03:  COMBI -UN  ITS 

02490 

03  COMB I — PPT - I D- 1 

02500 

03  COMBI -RPT - I D-2 

023 1 0 

03  COMBI-WDC 

0251 1 

FD 

KMT- INDEX-FILE 

025  i  2 

LABEL  RECORD  STANDARD. 

02513 

01  f 

HEW— REC— KMT. 

02514 

03  NEW- AFSC- INDEX 

025 1 5 

[ 

03  NEW-TYPE-HA I NT 

FIGURE  G-l.  JG05A/CD 

PIC  99. 
PIC  X ( 82 ) 


PIC  99, 
PIC  X ( 5 ) 


PIC  X  <  5 ) 


PIC  X ( 82 ) . 
PIC  99. 

PIC  X ( 78 ) . 


PIC  X ( 45 } . 


PIC  X  <  7 ) , 
PIC  X  <  6 )  . 
PIC  99. 

P I C  X >5) . 
PIC  X. 

PIC  9(6). 
PIC  9 ( 6 ) . 
PIC  9999. 
PIC  99. 
PIC  9. 

PIC  XX. 
PIC  X. 

PIC  X. 

PIC  X. 


PIC  99  VALUE 
PIC  X  VALUE 


02516 

r  03 

NEW- WOC 

PIC 

X  VALUE  SPACE,  ' 

02517 

03 

NEW-REC-ID 

PIC 

9  VALUE  0, 

02518 

03 

NEW— SRD— 1 

P I  c 

X  VALUE  SPACE. 

02519 

03 

NEW— SRD— 2— 3 

PIC 

XX  VALUE  space. 

02520 

.03 

MEW-MAN-HOURS 

PIC 

9999  VALUE  0.  , 

02521  * 

02530  * 

02540  / 

02550  WORK I  NO-STORAGE  SECTION. 

02560  * 

02570  # 

02580  *  tf*^*##*#*##^#**#*#*##*-:**#*-#***-**#****-*#-*'* 


02590  # 
02600  01 

■K-  S 

SRI 

RD-WDC-RPT- INDEX  FILE 
-WDC-RPT- I NDEX-BETA I L . 

DETAIL 

02610 

03 

s 

-W-R- I -D— SRD- 1 

PIC 

X. 

02620 

03 

c 

— 1*1— R—  I  — D-6DA— PEC- 1 D 

PIC 

X. 

02630 

03 

-W-R-I-D-WDC 

PIC¬ 

V 

02640 

03 

c 

-W-R- I -D-RPT- I D- 1 

RIC 

X. 

02-650 
02660  # 

03 

c 

-W-R- [-D-RPT- ID-2 

PIC 

X, 

02670  # 

02680  *  tt#***####***#*#^**-*##***#****'##-****'*#*****-***'##1*#**** 

02690  *  *  SELECT I ON-REPORT -FILE  HE ADER+DET AIL  RECORD  AREAS 

02700  * 


02710  01 

SEL 

EOT I ON-HEADER. 

02720 

03 

SEL 

-H-KEY. 

02730 

05 

SEL-H-KEY-RPT 

PIC  X. 

02740 

05 

FILLER 

PIC  X ( 12 ) . 

02750 

03 

SEL 

-H-DfiTA. 

02760 

05 

SEL-H-OPT I ON 

PIC  9. 

02770 

05 

SEL— H-SRDS . 

02780 

07  SEL-H-SORT I E-F 

-H-CNT  PIC  9(6). 

02790 

07  SEL-H-SORT I E-F 

-H-TJTL.E  PIC  X  ( 7  ) . 

02800 

07  FILLER 

PIC  X(1S). 

028 10  * 


02820 

01 

SELECT- JET A I L-A. 

02830 

03 

FILLER 

PIC  X  VALUE  "A". 

02840 

03 

F I LLER 

PIC  X ( 7 )  VALUE  LOW-VALUE 

02850 

03 

SEL-D-A-AFSC 

PIC  X ( 5 ) . 

02860 

03 

SEL-D-fi-MANHRS 

PIC  9999. 

02870 

03 

FILLER 

PIC  XX  VALUE  SPACE. 

02880 

03 

SEL— D— A— COL— I NDEX 

PIC  9. 

02890 

Vr 

02900 

01 

SEL 

.ECT-DETAIL-B. 

029 1 0 

03 

FILLER 

PIC  X  VALUE  "8". 

02920 

03 

FILLER 

PIC  X (7)  VALUE  LOW— VALUE 

02930 

03 

SEL— D-B-WCTR 

PIC  X ( 5 ) . 

02940 

03 

SEL-D-B-MANHRS 

PIC  9999. 

02950 

03 

SEL-D-B-UNITS 

PIC  XX. 

02960 

■s- 

02°  70 

01 

SELECT-BETA I L-C. 

02980 

03 

FILLER 

PIC  X  VALUE  "C". 

02990 

03 

SEL-D— C— WUC— 1 —2 

PIC  XX. 
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03000 

03 

FILLER 

PIC 

X(10)  VALUE  SPACE. 

03010 

03 

FILLER 

PIC 

X<8>  VALUE  SPACE. 

03020 

03 

SEL— D-C-RI 

PIC 

V 

A  a 

03030 

* 

03040 

01 

SEL 

ECT-DET  A I L-D . 

03050 

03 

FILLER 

PIC 

X  VALUE  “D”. 

03060 

03 

FILLER 

PIC 

X  <  7 )  VALUE  LOW-VALUE 

03070 

03 

SEL— D— Ei- AF  SC 

PIC 

X  <  5 ) . 

03030 

03 

SEL-D-D-MANHRS 

PIC 

9999. 

03090 

03 

FILLER 

PIC 

XX  VALUE  SPACE. 

03100 

03 

SEL-D-D-COL- I NDEX 

PIC 

9. 

031 10 

03 

SEL-D-D-ROW- I NDE X 

PIC 

9. 

03120 

* 

03 1 30 

01 

SELECT-DET  A I L-EF . 

03140 

03 

SEL-D-EF-RPT- I D 

PIC 

X. 

03150 

03 

FILLER 

PIC 

XX  VALUE  LOW-VALUE. 

03 1 60 

03 

SEL— B—EF— PSEUDO— WUC 

PIC 

X  (5) . 

03170 

0  3 

SEL-D-EF— AFSC 

PIC 

X  <  5 )  . 

03130 

03 

SEL-D-EF-MANHRS 

PIC 

9999. 

03 1 90 

03 

SEL-D-EF-UNITS 

PIC 

XX. 

03200 

03 

FILLER 

PIC 

XXX  VALUE  SPACE. 

03210 

03 

SEL-D-EF-PR I NT-WIJC 

PIC 

X  (  5 ) . 

03220 

03230 

01 

SELECT-DET  A I L-G . 

03240 

03 

FILLER 

PIC 

X  VALUE  "G". 

03250 

03 

SEL-D-O-TCTO-NO 

FTC 

X  •;  7  > . 

03260 

03 

SEL-D-G-AFSC 

PIC 

V  x  '» 

03270 

03 

SEL-D-G-MANHRS 

FTC 

9999. 

03230 

03 

SEL-D-G-UNITS 

PIC 

XX. 

03290 

* 

03300 

01 

SEL 

ECT-DET A I L-H. 

03310 

03 

FILLER 

PIC 

X  VALUE  !,H" . 

033:20 

03 

FILLER 

FTC 

XX  VALUE  LOW-VALUE. 

03330 

03 

SEL-D—H— PSEUDO— WUC 

PIC 

X  ( 5 » . 

03340 

03 

SEL-D-H-AFSC 

PIC 

x  ■:  5  > . 

03:350 

03 

SEL-D-H-MANHRS 

PIC 

9999 . 

03360 

03 

SEL-D-H-IJNITS 

PTC 

XX. 

03370 

03 

FILLER 

PIC 

XX  VALUE  SPACE. 

<"•  O  O  £;  (") 

03 

SEL-D-H-RI 

PIC 

X. 

03390 

03 

SEL-D-H-PR I NT-WUC 

PIC 

X  ( 5  >  . 

03400 

* 

03410 

03420 

ft  it  -fr  -*5-  O'  *$5*  *5r  •fc  &  ■£■  *  -R-  &  "X- 

■fr  -S’  -E-  -&<•  ■& 

03430 

*  REPORT  SOO  HEADERS+DETA 

IL 

03440 

* 

03450 

01 

SOO 

-HEADER-0. 

03460 

03 

FILLER 

FTC 

X  <  29  >  VALUE  SPACE. 

03470 

03 

FILLER 

FTC 

X i 29 )  VALUE 

03430 

"ODER  STANDARD  H.I.S. 

VERSION  ". 

03490 

03 

S00-HEAD0-VER3 I ON 

FTC 

X ( 10) . 

03500 

035 1 0 

01 

SOO 

-HEADER. 

03520 

03 

filler 

FTC 

X ( i 0 )  VALUE  SPACE. 

FIGURE  G-l .  JG05A/CDEP/CSTAR/P2.C 

(UNCOMPILED  VERSION  CONT’D) 

03530 

03 

FILLER 

PIC 

XI 10) 

VALUE 

"REPORT 

03540 

03 

FILLER 

PIC 

X(  11 ) 

VALUE 

SPACE. 

03550 

03 

FILLER 

PIC 

X  <  28 ) 

VALUE 

03560 

"INPUT  DATA  SELECTION 

SUMMARY" . 

03570 

03 

FILLER 

PIC 

X(  12) 

VALUE 

SPACE. 

03580 

03 

FILLER 

PIC 

X  <  5) 

VALUE  * 

'PAGE  **. 

03590 

03600 

Hr 

03 

SOO-H— PAGE-CNT 

PIC 

1119. 

03610 

01 

SOO 

-HEADER-2. 

03620 

03 

FILLER 

PIC 

X  ( 23 ) 

VALUE 

SPACE. 

03630 

03 

FILLER 

PIC 

X<  19) 

VALUE 

03640 

"REPORT  GROUP  TITLE-". 

03650 

03660 

* 

03 

SOO— HEAD— 2-T I TLE 

PIC 

X  i  25 ) 

■ 

03670 

01 

SOO' 

-SUBHEADER. 

03660 

03 

SOO-SH-D I RECT I ON 

PIC 

X  (7> . 

03690 

03 

FILLER 

PIC 

X  <  37 ) 

VALUE 

SPACE. 

03700 

03 

FILLER 

PIC 

X  ( 33 ) 

VALUE 

037 1 0 

"NO.  OF  RECORDS  NO. 

OF  MAN 

i— HOURS" . 

03720 

03730 

01 

SOO 

-REJECT-TITLE. 

03740 

03 

FILLER 

PIC 

X  ( 31 ) 

VALUE 

03750 

"  REJECTED  BECAUSE  T 

HE  RECORD: " 

• 

037 60 

03770 

01 

SOO 

-SELECT  I  ON-RF'T-T  I  TLE . 

03730 

03 

FILLER 

PIC 

X  (27) 

VALUE 

03790 

03800 

*■ 

"  USED  IN  SELECTION 

REPORT 

II 

• 

03810 

01 

SOO' 

-COMBI NAT I ON-RFT-T I TLE . 

03820 

03 

FILLER 

PIC 

X  ( 36 ) 

VALUE 

03830  "  PASSED  TO  THE  COMBINATION  PROGRAM". 

03840  * 


03850 

01 

SOO 

-FOOTNOTE. 

03860 

03 

FILLER 

PIC  X  < 50 )  VALUE 

03870 

"#  NOTE:  THESE  RECORD* 

S  AND  MANHOURS  ARE  REPORTED 

03860 

03 

FILLER 

PIC  X  < 29 )  VALUE 

03890 

"  OTHER  ENTRIES  ON  TH 

IS  REPORT". 

03900 

■s- 

03910 

01 

SOO 

-DETAIL. 

03920 

03 

FILLER 

PIC  X  <  5)  VALUE  SPACE. 

03930 

03 

SOO-D-T I TLE 

PIC  X < 37 ) . 

03940 

03 

FILLER 

PIC  X (5)  VALUE  SPACE. 

03950 

03 

SOO-D-COUNT 

P I C  Z  <  6 )  9 . 

03960 

03 

FILLER 

PIC  XXX  VALUE  SPACE. 

03970 

03 

SOO-D-COUNT-FLAG 

PIC  X. 

03980 

03 

FILLER 

PIC  XXXX  VALUE  SPACE. 

03990 

UJ 

SOO— D-MANHRS 

PIC  Z ( 6 ) 9 . 9 . 

04000 

■s- 

04010 

04020 

■s 

04030 

S' 

•s  REPORT  SOO  SUPPORT  CONS 

TANTS 

04040 

04050 

01 

SOO 

-FR I NT- INPUT 

PIC  X < 7 )  VALUE  "INPUT:  ", 

LMI  MODIFICATION  IS  UNDERLINED. 

FIGURE  G-I.  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT’D) 


G-9 


04060  *■ 
04070  01 

04080  # 
04090  * 
04100  * 


S00-PR I NT-OUTPUT 


P I C  X  ( 7  >  VALUE  "  OUTPUT  J  11 . 


&  ■$£*  &  ^  #  -$c  -55-  #  48-  ■>£■  ^  -iS-  ■£■  ■£■ ■£■  Hr ■&■ ■£*  *54*  &  if  ■*£ ■£■  ■&  ■#  *«F ■&  45-  &  ■&  & & ^  &  #■ & ■#■ ■£■ #  *tr ■£•  •&  & & &  •&  *3*  •& *£■ & & 


04110  *  *  SOI  REPORT  HEADER  AND  DETAIL  WORK  AREAS 

04120  # 


04130 

01 

SOI 

—HEADER— 0. 

04140 

03 

FILLER 

PIC  'A  <29) 

VALUE  SPACE. 

04150 

03 

FILLER 

PIC  X< 29) 

VALUE 

04160 

■'ODER  STANDARD  H.  I.S. 

VERSION 

04170 

03 

SO 1 -HEADO- VERS I ON 

PIC  X( 10) 

* 

04180 

■a- 

04190 

01 

•Z'f\  1 
v'V  X 

-HEADER. 

04200 

03 

FILLER 

PIC  X( 10) 

VALUE  SPACE. 

04210 

03 

FILLER 

PIC  X(10) 

VALUE  "REPORT 

04220 

03 

FILLER 

PIC  X(ll) 

VALUE  SPACE. 

04230 

03 

FILLER 

PIC  X ( 28 ) 

VALUE 

04240 

"USER  INPUT  SELECTION 

SUMMARY”. 

04250 

03 

FILLER 

PIC  X  < 1 2 ) 

VALUE  SPACE. 

04260 

03 

FILLER 

PIC  X ( 5) 

VALUE  "PAGE  " . 

04270 

03 

SO 1 -H-P AOE-CNT 

PIC  2Z29. 

04280 

■if 

04290 

01 

SO  1 

-HEADER-2. 

04300 

03 

FILLER 

PIC  X(23) 

VALUE  SPACE. 

04310 

03 

FILLER 

PIC  X  < 19) 

VALUE 

04320 

"REPORT  GROUP  TITLE-". 

04330 

03 

SO 1 -HEAD-2-T I TLE 

PIC  X ( 25 ) 

4 

04340 

04350 

01 

D I REST I VE-SUMMAR Y-FL Y-HRS - 

04360 

03 

FILLER 

PTC  A(9) 

VALUE  SPACE. 

04370 

03 

FILLER 

PIC  X ( 22 > 

VALUE 

04380 

"NO.  OF  FLYING-HOURS  = 

ti 

04390 

03 

D-S-FH-NUM 

PIC  X(8). 

04400 

«■ 

044 1 0 

01 

D I EECT I VE-SUMMARY-MDS . 

04420 

OS 

FILLER 

PIC  X ( 9 > 

VALUE  SPACE. 

04430 

03 

FILLER 

P I C  X  C  22 ) 

VALUE 

04440 

"MDS  VALUEJ.  FROM  USER 

_  •* 

04450 

03 

D-S-M-MDS-USER 

PIC  X ( 7 ) 

VALUE  Or-iE^ 

04460 

03 

FILLER 

PIC  X ( 1 9 ) 

VALUE 

04470 

FROM  "B4'-  DATA 

04480 

03 

D-S-N— MDS—B4 

PIC  X < 7 ) 

VALUE  " «*NONE* " 

04490 

03 

FILLER 

PIC  X  VAL 

;  jr-  it _ ii 

wi —  . 

04500 

8- 

045 1 0 

01 

D I SECT I VE— SUMMARY— NO-SRDS . 

04520 

03 

FILLER 

*ic  x <  1 1  :* 

VALUE  SPACE. 

04530 

03 

FILLER 

PIC  X ( 50 > 

VALUE 

»*.  y«  **—  *  «™ 

U^O-fU 

NO  SRD'S  FOR  ABOV 

E  REPORT.  N 

U  us-*  i  A  U;  i  LL  —  I  ‘ 

04530 

04560 

01 

L*  I R 

EOT I VE— SUMMARY -NO— WDCS - 

04570 

03 

filler 

PIC  X  < 1 i ) 

VhLUH  ”■  r  A  0  ^ . 

04580 

03 

FILLER 

PIC  X < 50 ) 

VALUE 

SOI  " 


41 


LMI  MODIFICATION  IS  UNDERLINED. 

FIGURE  G-l.  JG0IA/CDEP/CSTAR/P2 . C 
(UNCOMPILED  VERSION  CONT'D) 


G-10 


i 


04590 
04600  # 


046 1 0 

01 

DIRECT I VE-i 

or* 

03 

FILLER 

0  '‘630 

03 

FILLER: 

04640 

"NO.  Of 

04650 

03 

D-S-S-f 

04660 

*■ 

04670 

01 

DIRECTIVE-! 

04680 

03 

FILLER 

04690 

03 

FILLER 

04700 

"WORK 

04710 

04720 

01 

DIRECTIVE-; 

04730 

03 

FILLER 

04740 

03 

D-S-W-- 

04750 

03 

FILLER 

04760 

03 

o-s-w-; 

04770 

04780 

01 

DIRECTIVE-; 

04790 

03 

FILLtR 

04800 

03 

FILLER 

04810 

"  Ni 

04820 

03 

FILLER 

04830 

"NO  DA 

04840 

-if- 

04850 

01 

DIRECTIVE- 

04860 

03 

FILLtR 

04870 

03 

FILLER 

04880 

"SELEC 

04890 

03 

D-S-SEi 

04900 

if 

04910 

01 

DIRECTIVE- 

04920 

03 

FILLER 

04930 

03 

D-S-SE 

04940 

03 

D-S-SE 

04950 

04960 

01 

DIRECTIVE- 

04970 

03 

FILLER 

04980 

03 

FILLER 

04990 

03 

D-S-SE 

05000 

05  D- 

05010 

05  D- 

05020 

03 

D— S— 3E 

05030 

05  D- 

05040 

05  FI 

05050 

05060 

01 

DIRECTIVE- 

05070 

03 

FILLER 

05080 

03 

FILLER 

05090 

"LIST 

05 1 00 

if 

05110 

01 

DIR 

ECU  VE- 

“  NO  WDC-'S  FOR  ABOVE  REPORT.  NO  DATA  WILL  FIT  IT 


PIC  X < 9 >  VALUE  SPACE. 
PIC  X  <  1 7 )  VALUE 


PIC  X  f  3 ) . 


PIC  X  C  9 >  VALUE  SPACE. 
PIC  X ( 31 )  VALUE 


PIC  X ( 1 2 5  VALUE  SPACE. 
PIC  X  < 5 ) . 

PIC  X(7)  VALUE  SPACE. 
PIC  X < 5 ) . 


PIC  XU1>  VALUE  SPACE. 
PIC  X (41)  VALUE 
DIRECTIVES  FOUND, 

PIC  XI 24)  VALUE 


PIC  X  <  9  >  VALUE  SPACE. 
PIC  X(I9)  VALUE 


PIC  X  C 1 1 >  VALUE  SPACE. 


PIC  X «.  9 )  VALUE  SPACE. 
PIC  X (7)  VALUE  "REPORT  1 
VALUE  "GROUP  TITLE:  ", 


PIC  X< 7). 


PIC  X  ( 9 )  VALUE  SPACE. 
PIC  X ( 27 >  VALUE 


FIGURE  G-I.  JG05A/CDEP/CSTAR/P2 . C 
(UNCOHPILED  VERSION  COST'D) 


. . . . I"!!1 . . . . 


05120 
05130 
05140  is- 
OS  150  01 

05160 
05170 
05130 
05190  * 
05200  01 

05210 
05220 
05230 
05240 
05250  * 
05260  01 

0527 0 
05230 
05290 
05300  * 
05310  01 

05320 
05330 
05340 
05350 
05360  * 
05370  01 

05330 
05390 
05400  * 
05410  * 
05420  * 
05430  * 
05440  * 
05450  01 

05460 
05470  # 
05480  01 

05490 
05500  * 
05530  01 

05520 
05530  *■ 
05540  01 

05550 
05560  * 
05570  01 

05530 
055°0  -is- 
05600  01 

05610 
05620  * 
05630  01 

05640 


03  FILLER 
03  D-S-8EL-5-SRDS 

0 1  D I RECT I VE-SUMMARY— SELECT-6 , 
03  FILLER 
03  FILLER 


01  D I RECT I VE— SUMMARY— SELEO"  -7 . 

03  FILLER  PIC  X<9)  VALUE  SPACE . 

03  FILLER  PIC  X<8>  VALUE  "REPORT  C" , 

03  D-S-SEL-7-RPT- I D- 1  PIC  X. 

03  D-S-SEL-7-RPT-IB-2  PIC  X. 

01  B I RECT I VE-SUMMARY-SELECT-8. 

03  FILLER  PIC  X(ll>  VALUE  SPACE. 

03  FILLER  PIC  X(7>  VALUE  "SRD'$: 

03  B-S-SEL-S-SRBS  PIC  X(47). 

01  D I RECT I VE— SUMMARY— SELECT— 9 . 

03  FILLER  PIC  X ( 1 1 )  VALUE  SPACE. 

03  FILLER  PIC  X(7>  VALUE  "WDC'S 

03  B— S— SEL— 9-WBC-NAME  FIC  X<15). 

03  FILLER  PIC  X<6>  VALUE  "  SET#:”. 

0 1  B I RECT I VE-SUMMARY-SELECT- 1 0 . 

03  FILLER  PIC  X(13>  VALUE  SPACE. 


■**H*  «■****  -5-b-  *•■*■»*■■* ■*  if 

<■  SOI  REPORT  SELECT- 1  '  SUPPORT  CONSTANTS 

BIRECTI VE-SUMMARY-3DIG-WUC  PIC  XU3>  VALUE 
”3  DIGIT  LUC'S" . 

B I RECT I VE-SUMMARY- ASS I GN-COBE  PIC  X  < 15 )  VALUE 

" ASS I GNMENT  CODE " . 

0 I RECT I VE-SUMMARY -COMP-POS  P I C  X ( IS)  VALUE 
" COMPONENT  PCS I T I ON ! . 


PIC 

X  (ID  VALUE 

PIC 

X (47). 

PIC 

X  C 9 )  VALUE  ; 

PIC 

X  <51 )  VALUE 

COMBINATION  RE* 

PIC 

X  <  9 )  VALUE  5 

PIC 

X < S )  VALUE  1 

PIC 

V 

A  • 

PIC 

V 

A  * 

PIC 

X ( 1 1 )  value 

PIC 

X (7)  VALUE 

PIC 

X ( 47 ) . 

PIC 

X(ll>  VALUE 

PIC 

X ( 7  >  VALUE 

PIC 

X* 15). 

PIC 

X <  6 )  VALUE 

PIC 

X ( 1 3  >  VALUE 

PIC 

X ( 55  > . 

B I RECT I VE-SUMMARY-LAB-CAT 
"CATEGORY  OF  LABOR". 

B I RECT I VE-SUMM ARY-M A JCOM 
"ACTIVITY  ID/COMMAND  ID". 


X • 1 7 )  VALUE 


PIC  X ( 22 3  VALUE 


DIRECT I VE-SUMMARY-QUEEN-B  PIC  X<17>  VALUE 
"QUEEN  BEE  ENGINES*. 

D 1 RECT I VE-SUMMARY -TYPE— HA I NT  PIC  X*16>  ' 

"TYPE  MAINTENANCE". 

FIGURE  G-l .  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILES  VERSION  COST'D) 


05650 

* 

05660 

* 

05670 

* 

it-  *****  it-  **  **  it-K-ii-  *****  if-  * *  if- it-  ***  ***■*■ 

********************* 

05680 

* 

*  SOI  REPORT  'SELECT-2"  SUPPORT 

CONSTANTS 

05690 

* 

05700 

01 

D I RECTI VE-SUMMAR Y-DEF AULT 

PIC 

X  ( 1 5 ) 

VAL  JE 

05710 

"DEFAULTS  USED*.  " . 

05720 

•a- 

05730 

01 

D I RECT I VE-SUMMARY— USER 

PIC 

X(  15) 

VALUE 

05740 

"USER-SELECTED^  " . 

05750 

* 

05760 

it- 

05770 

*******  it- it-*# ******** it- it-#*# it- it- ******** **  ***** if- *********  it- **** it- 

,057:  ■'  -  *  SOI  REPORT  •■‘SELECT-3-'  SUPPORT  CONSTANTS 

05  '  " 


o  svx  '■  j 

OSS  10  «■ 
05820  01 

05830 
05840 


DIRECT I VE-SUMMARY-RPT-GEN  PIC  X(10)  VALUE  "  GENERATED". 

DIRECT I VE-SUMMARY-DTL-SUP. 

03  FILLER  PIC  X(7)  VALUE  "-DETAIL" - 

03  DIRECT I VE-SUMMARY-RPT-SUP  PIC  X  < 1 1 >  VALUE 


05850 

"  SUPPRESSED". 

0 5 8 6 0 

* 

05870 

* 

05880 

* 

**************************** ****************v***** 

05890 

if- 

if  DIRECTIVE  PROCESSING 

MESSAGES 

05900 

* 

05910 

01 

DIRECT I VE-FAT AL-SEL-T AB 

-2MANY. 

05920 

03 

FILLER 

PIC  X < 39 ) 

VALUE 

05930 

-  *****  FATAL  ERROR,  MAIN  SELECTION 

05940 

03 

FILLER 

PIC  X (37' 

VALUE 

05950 

"TABLE  OUT  OF  ROOM, 

PROGRAM  TERM I 

NATED" . 

05960 

if- 

05970 

01 

DIRECT I VE-FATAL-WDC-TAB 

-2MANY. 

05980 

03 

FILLER 

PIC  X  < 39 ) 

VALUE 

05990 

"  *****  FATAL  ERROR,  WDC-NAME 

TABLE 

06000 

03 

FILLER 

PIC  X ( 3 1 ) 

VALUE 

060 1 0 

"OUT  OF  ROOM,  PROGRAM  TERMINATED" 

a 

06020 

it- 

06030 

01 

DIR 

ECTIVE-HEADER-O. 

06040 

03 

FILLER 

PIC  X ( 29 ) 

VALUE  SPACE. 

06050 

03 

FILLER 

PIC  X ( 29 ) 

VALUE 

06060 

"CDEP  STANDARD  H.I. 

S.  VERSION  ". 

06070 

03 

D-H-O-VERSIGM 

PIC  X(10> 

• 

06080 

* 

06090 

01 

DIRECTIVE-HEADER. 

06100 

03 

FILLER- 

PIC  X(10) 

VALUE  SPACE. 

06110 

03 

FILLER 

PIC  X<10) 

VALUE  " RFPOR 

06120 

03 

FILLER 

PIC  X<11> 

VALUE  SPACE. 

06 1 30 

03 

FILLER 

PIC  X  ( 2*3 ) 

VALUE 

06 1 40 

"LOG  OF  USER- INPUT 

DIRECTIVES". 

06150 

03 

FILLER 

PIC  X (1 2 ) 

VALUE  SPACE. 

06 1 60 

03 

FILLER 

PIC  X ( 5) 

VALUE  "PAGE  " 

06170 

03 

D-H-PAGE-CNT 

PIC  ZZZ9. 

LMI  MODIFICATIONS  UNDERLINED. 

FIGURE  G-l ,  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT'D) 


G-l  3 


061  SO 
06 1 90 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
064S0 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
0657 0 
06 580 
06590 
06600 
066 1 0 
06620 
06630 
06640 
06650 
06660 
06670 
06630 
066^0 
06700 


%■ 

01 


«■ 

01 


•si- 


01 


O1 


■si- 

01 


-si- 

01 


D I RECT I VE-HEADER-2 . 

03 

FILLER 

PIC 

X  ( 23 ) 

VALUE  SPACE. 

03 

FILLER 

PIC 

X  (  1 9 ) 

VALUE 

•'REPORT  GROUP  TITLE 

03 

D-H-2-TITLE 

PIC 

X  ( 25 ) 

• 

DIRECTIVE-MESS AGE-END. 

03 

FILLER 

PIC 

X  ( 29 ) 

VALUE 

"  ***#•■#■*•*#*■*■  EiND  C, 

PROCESSING 

03 

D-M-E-NUM 

PIC 

XXXX 

VALUE  "XXXX". 

03 

FILLER 

"  USER-DIRECTIVES". 

PIC 

X  (  1 6 ) 

VALUE 

D I RECT I VE-WARN I NG-2MANY 

-DIR. 

03 

FILLER 

PIC 

X  ( 48 ) 

VALUE 

"  ***  WARNING, 

YOU  INPUT  TOO 

MANY  DIRECTIVES  " . 

03 

FILLER 

PIC 

X  ( 32  I 

VALUE 

"TO  THIS  TABLE,  DIRECTIVE  IGNORED 

il 

D I RECT i VE-WARN I NG-2MANY 

-TOK. 

03 

FILLER 

PIC 

X  ( 49 ) 

VALUE 

"1 _ #*#  WARNING, 

TOO  MANY 

VALUE 

S  FOR  DIRECTIVE, 

03 

FILLER 

PIC 

X  <  1 3  > 

VALUE 

"VALUES  BEYOND  COL 

>1 

• 

03 

D-W-2M— T-NUM 

PIC 

XX  VALUE  "XX". 

03 

FILLER 

PIC 

X  ( 8 ) 

VALUE  "  IGNORED" . 

D I  RECTI VE-WARN I NG-AFSC- 

2MANY . 

03 

FILLER 

PIC 

X  ( 50 ) 

VALUE 

»  **#  WARNING, 

TOO  MANY 

AFSC-" 

S  INPUT  TO  TABLE,  ". 

03 

D-W-A-2-AFSC 

pic- 

X  ( 5 1 

VALUE  "XXX XX".. 

03 

FILLER 

pic 

X<  12) 

VALUE  "  SUBSTITUTED". 

D I RECT I VE-WARN I NG-DUP-WCTR . 

03  FILLER  PIC  X<47)  VALUE 

*'  ***  WARNING-  WORK  CENTER  ALREADY  IN  TABLE?  " 

03  FILLER  PIC  X(17)  VALUE 

"DIRECTIVE  IGNORED". 


0 1  D I PEC T I VE-WARN I NG-PUP-WDC-NAME . 

03  FILLER  PIC  X ( 43 )  VALUE 

"  ***  WARNING,  WDC  NAME  ALREADY  EXISTS, 

03  FILLER  PIC  X(2S)  VALUE 

"PREVIOUS  DEFINITION  WAS  USED". 

#- 

0 1  D I RECT I VE-WARN I NG-KEY WORD . 

03  FILLER  PIC  X<42>  VALUE 

"1....***  WARNING’  KEYWORD  STARTING  IN  COL  " 
03  D-W-K-NUM  PIC  XX  VALUE  "XX" , 

03  FILLER  PIC  X<32)  VALUE 

"  UNRECOGNIZED,  DIRECTIVE  IGNORED". 
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06710  01  D I RECT I VE-WARN I NG-NON-NUMER I C. 


06720 

03 

FILLER 

PIC 

X(47)  VALUE 

06730 

" 1 _ WARNING,  NGN 

-NUMERIC  CHAR  BETWEEN  COL 

06740 

03 

D— W-N— N-NUM— 1 

PIC 

XX  VALUE  "XX". 

06750 

03 

FILLER 

PIC 

X (5)  VALUE  "  AND 

06760 

03 

D— W-N-N-NUM-2 

PIC¬ 

XX  VALUE  "XX". 

06770 

03 

FILLER 

RIC 

X ( 1 9 )  VALUE 

06780 

06790 

",  VALUE  SET  TO  ZERO". 

06800 

01 

D I RECT I VE-WARN I NG-NO-SRD . 

06810 

03 

FILLER 

PIC 

X  <  47 )  VALUE 

06820 

"  WARNING,  NO 

SRO  DIRECTIVE  FOR  REPORT,  " . 

06830 

03 

FILLER 

PIC 

X ( 1 5 )  VALUE 

06840 

06850 

fc 

"NO  DATA  FITS  IT". 

06860 

01 

D I RECTI VE-WARN I NG-NO-WDCS . 

06*87 0 

03 

FILLER 

PIC 

X ( 47 )  VALUE 

06880 

"  ***  WARNING,  NO 

WDC  DIRECTIVE  FOR  REPORT, 

06890 

03 

FILLER 

PIC 

X ( 15)  VALUE 

06900 
069 1 0 

■ii- 

"NO  DATA  FITS  IT". 

06920 

01 

D I RECT I VE-WARN I NG-SI ZE . 

06930 

03 

FILLER 

PIC 

X  <  40 )  VALUE 

06940 

"1 _ ***  WARNING,  FIELD  STARTING  IN  COL  ". 

06950 

03 

D-W-S-NUM-l 

PIC¬ 

XX  VALUE  "XX". 

06960 

03 

FILLER 

RIC 

X ( 1 6 1  VALUE 

06970 

"  TOO  LARGE,  COL 

06980 

03 

D-W-S-NUM-2 

PIC 

XX  VALUE  "XX". 

06990 

03 

FILLER 

PIC 

X ( 6 )  VALUE  "  THRU  " . 

07000 

03 

D-W-S-NUM-3 

PIC 

XX  VALUE  "XX". 

0  70 1 0 
07020 

# 

03 

FILLER 

PIC 

X < 1 1 >  VALUE  "  IS  IGNORED 

07030 

01 

D I RECT I VE-WARN I NG-S IZE2. 

07040 

03 

FILLER 

PIC 

X<*0)  VALUE 

07050 

"1 _ ***  WARNING,  VALUE  STARTING  IN  COL  ". 

07060 

03 

D— W-S2-NUM 

PIC 

XX  VALUE  "XX". 

07070 

03 

FILLER 

PIC 

X  <  33 )  VALUE 

07080  "  IS  WRONG  SIZE,  DIRECTIVE  IGNORED". 

07090  «■ 

07100  01  DIRECTIVE-WARNING-SIZES. 

07110  03  FILLER  PIC  X<33>  VALUE 

07120  "1....***  WARNING-  VALUE  FROM  COL 


07130 

03 

D— W-S3-NUM-J 

PIC  XX  VALUE  "XX 

07140 

03 

FILLER 

PIC  X (6)  VALUE  " 

07 1 50 

03 

D-W-S3-NUM-2 

PIC  XX  VALUE  "XX 

07160 

03 

F I LLER 

PIC  X ( 29 )  VALUE 

07170  "  IS  WRONG  SIZE,  VALUE  IGNORED". 

07180  s- 

07190  01  D I RECT I VE-WARN I NG-SORT I E-FLHR . 

07200  03  FILLER  PIC  X(44>  VALUE 

07210  "  ***  WARNING,  PRIOR  SORTIE/FLYING-HOURS 

07220  03  FILLER  PIC  X ( 36 )  VALUE 

07230  "DIRECTIVE  ACCEPTED,  THIS  ONE  IGNORED". 
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07240 

if- 

07250 

01 

07260 

07270 

072S0 

07290 

07300 

07310 

07320 

07330 

3- 

07340 

01 

07350 

07360 

07370 

07380 

07390 

* 

07400 

01 

07410 

07420 

07430 

3- 

07440 

01 

07450 

07460 

07470 

07480 

07490 

0  7500 

3- 

07510 

3- 

07520 

3- 

0  7530 

01 

07540 

01 

07550 

01 

07560 

01 

07570 

01 

07580 

01 

07590 

01 

07600 

01 

07610 

if- 

07620 

if- 

07630 

01 

07640 

01 

07650 

01 

07660 

01 

07670 

01 

07680 

01 

07690 

01 

07700 

01 

07710 

01 

07720 

01 

07  730 

01 

07740 

if. 

0775 0 

01 

07760 

DIRECTI  VE-WARNING-SRD.. 


03 

FILLER 

PIC 

X ( 31 )  VALUE 

"1 _ ***  WARNING, 

SRD  FROM 

COL 

03 

D-W-SRD-NUM- 1 

PIC 

XX  VALUE  "XX 

03 

FILLER 

PIC 

X ( 6)  VALUE  " 

03 

D-W-SRD—NUM— 2 

PIC 

XX  VALUE  "XX 

03 

FILLER 

PIC 

X ( 37 )  VALUE 

"  HAS  INCONSISTENT  PREFIX,  3RD  IGNORED". 

D I RECT I VE-WARN I NG-SRD-EHPT Y . 

03  FILLER  PIC  X<50>  VALUE 

"  #*if-  WARNING,  3RD  DIRECTIVE  ABOVE  CONTAINS  NO  " . 

03  FILLER  PIC  X(30)  VALUE 

"SRD-S,  NO  DATA  WILL  FIT  REPORT" . 


D I RECT I VE-WARN I NG-STARS . 
03  FILLER 
03  FILLER 


PIC  X ( 5)  VALUE  SPACE. 
PIC  X ( 75 )  VALUE  ALL 


DIRECT I VE-WARN I NG— WDC-EMPTY . 

03  FILLER  PIC  X(50>  VALUE 

"  WARNING,  WDC  DIRECTIVE  ABOVE  CONTAINS  NO 

03  FILLER  PIC  X<30)  VALUE 

"WDC -'3,  NO  DATA  WILl.  FIT  REPORT". 

*  INPUT  DIRECTIVE  KEYWORDS  AND  OTHER  ASSOCIATED  CONSTANTS 


D I R-KEY-3-D I G I T-WUC 
D I R-KEY-ASS I GNMENT-CODE 
D I R-KEY-COMPONENT-POS 
D I R-KEY-DET AIL 
DIR-KEY-END 
D I R-KEY-FLY I NG-HRS 
D I R-KEY-LABOR-CATEGORY 
D I R-KEY-MA JOR-COMMAND 

*  MAJOR  COMAND  REFERENCES 

*  ACTIVITY- ID  REFERENCES 
DIR-KEY-MDS 
DIR-KEY-NAME 

D I R-KEY-QUEEN-BEE 

DIR-KEY-REPORT 

D I R-KE Y-SORT I ES 

DIR-KEY-SRD 

D I R-KE Y-SUPPRESS 

DIR-KEY-TITLE 

D I R-KEY-TYPE-MA I NT 

DIR-KEY-WDC 

D I R-KEY-WORKCENTER 

DEFAULT— TYPE-MAI NT 


PIC  xxxx 
PIC  xxxx 
PIC  xxxx 
PIC  xxxx 
PIC  XXX 
PIC  xxxx 
PIC  xxxx 
PIC  xxxx 
ARE  BEING 


VALUE  "3DIG" . 
VALUE  "ASS I". 
VALUE  "COMP". 
VALUE  "BETA”, 
VALUE  "END". 
VALUE  "FLY I". 
VALUE  "CATE", 
VALUE  "ACT I", 
CHANGED  '!  0 


PIC  XXX  VALUE  1 
PIC  XXXX  VALUE 
PIC  XXXX  VALUE 
PIC  XXXX  VALUE 
PIC  XXXX  VALUE 
PIC  XXX  VALUE  ’ 
PIC  XXXX  VALUE 
PIC  XXXX  VALUE 
PIC  XXXX  VALUE 
PIC  XXX  VALUE  ■ 
PIC  XXXX  VALUE 

PIC  X<27>  VALUE 


MDS" . 
"NAME". 
*  :<UEE" . 
"REPO". 
"SORT". 
SRD"  - 
"SUPP" . 
"TITL" . 
" TYPE " . 
WDC". 
"wORK'1 . 


'A,  B,  C,  D,  E,  H,  J,  K,  L- P,  S-  T,  W,  Z"  . 
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07770 

077S0 

07790 

07300 

07310 

07320 


*£• -8- -ft  #■##«•#•»■  ■£ 

*  THE  INPUT  DIRECTIVE  WORK  AREA  AND  ITS  IMMEDIATE  SUPPORT 

*  WORK  AREAS 

DIRECTIVE-STUFF. 


|  07330 

03 

DIR-CHECK 

PIC  X. 

1  07840 

03 

DIR-SPACER 

PIC  X. 

t  07350 

03 

DIR-SPACE-REPLACE 

PIC  X  VAL 

.UE 

r  07860 

03 

DIR-ERR-SS1 

PIC  9(6) 

COMP-1. 

l  07870 

03 

DIR-ERR-SS2 

PIC  9(6) 

COMP- 3 . 

t  07880 

03 

DIR-ERR-SW 

PIC  9(6) 

COMP-1. 

X.  07890 

03 

DIR-SS 

PIC  9(6) 

COMP-1 . 

t  07900 

03 

DIR-TOK-SS 

PIC  9(6) 

COMF-1. 

%  07910 

03 

DIR-MAX 

PIC  9(6) 

COMP-1  VALUE 

■  07920 

03 

DIR-NAME-MAX 

PIC  9(6) 

COMP-1  VALUE 

:  07930 

03 

DIR-NAME-MAX-HOLD 

PIC  9(6) 

COMP-1. 

b  07940 

03 

DIR-NAME-SW 

PIC  9(6) 

COMP-1  VALUE 

•  07950 

03 

DIR-TITLE-MAX 

PIC  9(6) 

VALUE  25. 

f  07960 

|  07970 

03 

DIRECTIVE. 

05  DIR 

PIC  X  OCCURS  80. 

07930 
07990 
03000 
08010 
03020 
03030 
080  40 
08050 
08060 
08070 
08080 
08090 
08100 


D I RECT I VE-STUFF2 . 

03  D I R— HOLD-SRD-PREF I X 
03  DIR— SS— HOLD 
03  DIRECTIVE-HOLD 
D I RECT I VE- STUFFS . 

03  DIR-STACK-MAX 

03  DIR-3TACK-SS 

03  D I R-STACKED-D 1 RECT I VE 


PIC  X. 

PIC  9(6)  COMP-1 . 

PIC  X ( 30 ) . 

PIC  9(6)  COMP-i  VALUE  5. 
PIC  9(6)  COMP-1  VALUE  0. 
PIC  X ( SO )  OCCURS  5. 


*  GENERAL  I/O  VARIABLES,  COUNTERS,  CONSTANTS, ETC. 


03110 

01 

CDEP- VERSION 

PIC 

X(  10) 

VALUE 

"  1 .  i  "  . 

08 1 20 

•K* 

08130 

*■ 

08140 

01 

LIME-CNT 

PIC 

9  ( 6 ) 

COMP-1. 

03150 

01 

MAX-LINES-PER-PAGE 

PIC 

9(6) 

COMP-1 

VALUE 

55. 

03160 

01 

PAGE-CNT 

PIC 

9  ( 6 ) 

COMP-1 . 

08 1 70 

* 

08130 

01 

ABD6DA-AT-END 

PIC 

9(6) 

COMP- 1 

VALUE 

1 . 

08 1 90 

•* 

03200 

01 

DIR-AT-E  , 

PIC 

9(6) 

COMP-1 

VALUE 

1  m 

082 1 0 

01 

DIR-COUN 

PIC- 

9(6) 

COMP-1 

VALUE 

0. 

('.OOOA 
'J  ■*.  V* 

iV 

08230 

01 

D I  RECT  I -v  E-OUT 

PIC 

X  ( 80  > 

* 

08240 

01 

D I R-L I ST-COUNT 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

03250 

01 

DIR-LIST-CC 

PIC 

9  ( 6 ) 

COMP-1 . 

2260 

01 

D I  R—L  I  ST-OPEN 

PIC- 

9(6) 

COMP-1 

VALUE 

1. 

03270 

«■ 

08280 

01 

D I R-SUNMARY-COUNT 

PIC 

9  <  6 ) 

COMF-1 

VALUE 

0. 

08290 

01 

DIR-SUMMARY-CC 

PIC 

9(6) 

COMF-1 . 
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08300 

01 

D I RECT I VE-SUMMARY-OUT 

PIC 

X  ( SO ) 

• 

08310 

01 

DIR- 

-SUM-SEL— 2-CNT 

PIC 

9  ( 6 ) 

COMP-1. 

08320 

01 

DIR- 

-SUM-SEL-2-L I M I T 

PIC 

9(6) 

COMP- 1 

VALUE 

54 

08330 

01 

DIR- 

-SUM-SEL-2-L I NE-CMT 

PIC 

9(6) 

COMP-1 . 

08340 

if- 

08350 

01 

soo 

-CC 

PIC 

9(6) 

COMP-1 , 

08360 

01 

800 

-CNT 

PIC 

9(6) 

COMP- 1 

VALUE 

0. 

08370 

01 

soo- 

-OUT 

PIC 

X  ( 80  > 

« 

08380 

01 

SOO- 

-TABLE. 

08390 

03 

soo-ss 

PIC 

9(6) 

COMP-1. 

08400 

03 

SOO-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

27 

034 1 0 

if- 

*  KEEP  THE  VALUE  OF  SCO¬ 

MAX  (AND  THE 

VALUES 

OF  THE 

08420 

* 

'S  FOLLOWING  OFFSET  SUBSC 

RIPTS) 

IN  LINE  WITH 

THE 

03430 

-h- 

*  TABLE  ENTRY  LOCATIONS 

-  SEE  Si 

DO— TAE 

i -ENTRY 

BELOW. 

08440 

03 

SOO-REJECT-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

* 

08450 

03 

SCO— SA-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

13 

08460 

03 

SOO-SB-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

19 

08470 

Ci  3 

SOO-SC-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

20 

08480 

03 

SOO-SD-OFFSET 

PIC 

9  ( 6 ) 

COMP-1 

VALUE 

21 

08490 

03 

SOO-SE -OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

22 

08500 

03 

SOO-SF-OFFPET 

PIC 

9(6) 

COMP-1 

VALUE 

23 

08510 

03 

SOO-SO-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

24 

08520 

03 

SOO-SH-OFFSET 

PIC 

9  ( 6 ) 

COMP- 1 

VALUE 

08530 

03 

SOO-COMB I -04-OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

08540 

03 

SOO-COMB I -OFFSET 

PIC 

9(6) 

COMP-1 

VALUE 

27 

08550 

03 

300-TAB-ENTRY-VALUES 

1  M 

08560 

if- 

if- 

EACH 

08570 

*- 

if- 

AN  Ei 

08530 

«• 

•s 

A  PO: 

08590 

if- 

if- 

S00-. 

08600 

if- 

086 1 0 

if- 

THIS 

08620 

05 

08630 

08640 

05 

08650 

05 

08660 

* 

THIS 

/  l* 

05 

08680 

08690 

05 

08700 

05 

087 1 0 

if- 

if- 

THIS 

08720 

05 

03730 

08740 

05 

08750 

05 

08760 

4r 

THIS 

08770 

05 

08780 

Uc*7  /U 

05 

08300 

03 

OSS  10 

* 

THIS 

08320 

05 

X ( 38 )  VALUE 
HISTORY  FILE". 
9(7)  COMP-1. 
9(8)  COMP-1. 


IS  OCC  #  1  FOR  INPUTS 
FILLER  PIC 

"  INPUT  FROM  BASE-LEVEL 
FILLER  PIC 

FILLER  PIC 

IS  OCC  #  2  FOR  REJECT  REASON  CODE  0 
FILLER  PIC  X ( 38 )  VALUE 

"  0 -DUPLICATES  ITS  PRECEDING  RECORD". 

FILLER  PIC  9(7 >  COMP-1. 

FILLER  PIC  9(8)  COMP-1. 

IS  OCC  #  3  FOR  REJECT  REASON  CODE  1 
FILLER  PIC  X ( 38 )  VALUE 

"  1 -HAS  UNWANTED  WORKCENTER  (INDIRECT)" 

FILLER  PIC  9(7)  COMP-1. 

FILLER  PIC  9(8)  COMF-1. 

IS  OCC  #  4  FOR  REJECT  REASON  CODE  2 
FILLER  PIC  X ( 38 )  VALUE 

"  2-HAS  UNWANTED  ‘3RD"  . 

FILLER  PIC  9(7)  COMP-1, 


FILLER 


PIC 


r  of o 


)  COMP-1 


IS  OCC  #  5  FOR  REJECT  REASON  CODE  3 
FILLER  PIC  X ( 38 )  VALUE 
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08830 

"  3-HAS  UNWANTED  CATEGORY  OF  LABOR". 

08840 

05 

FILLER 

PIC  9(7)  COMP-1, 

08850 

05 

FILLER 

PIC  9(8)  COMP-i. 

08860 

«■ 

ft 

THIS 

IS  OCC  #  6  FOR 

REJECT  REASON  CODE  4 

08870 

05 

FILLER 

PIC  X ( 38 )  VALUE 

08880 

"  4-HAS  UNWANTED  ACFT  ASSIGNMENT  CODE" 

08890 

05 

FILLER 

PIC  9(7)  COMP-1. 

08900 

05 

FILLER 

PIC  9(8)  COMP-1. 

089 1 0 

# 

ft 

THIS 

IS  OCC  #  7  FOR 

REJECT  REASON  CODE  5 

08920 

05 

FILLER 

PIC  X (38)  VALUE 

08930 

"  5— HA'S  UNWANTED  ACTIVITY/COMMAND  ID". 

08940 

05 

FILLER- 

PIC  9(7)  COMP-1. 

08950 

05 

FILLER 

PIC  9(8)  COMP-1. 

0396-0 

■H- 

ft 

THIS 

IS  OCC  #  3  FOR 

REJECT  REASON  CODE  6 

08970 

05 

FILLER 

PIC  X ( 38 )  VALUE 

08980 

"  6— HAS  AN  MDC  RECORD- ID  OF  2  OR  5". 

03990 

05 

FILLER 

PIC  9(7)  COMP-1. 

09000 

05 

FILLER 

PIC  9(8)  COMP-1. 

09010 

-a- 

•fc. 

THIS 

IS  OCC  #  9  FOR 

REJECT  REASON  CODE  7 

09020 

09030 

0,:>040 

09050 

09060  # 

09070 

09080 

09090 


05  FILLER  PIC  X<38)  VALUE 

11  7-HAS  UNWANTED  WORKCENTER  (DIRECT)". 
05  FILLER  PIC  9(7)  COMP-i. 

05  FILLER  PIC  9(8)  COMP-1. 

THIS  IS  OCC  #  10  FOR  REJECT  REASON  CODE  8 
05  FILLER  PIC  X<38)  VALUE 

"  8-HAS  UNWANTED  TYPE-MAINTENANCE  CODE 
05  FILLER  PIC  9(7)  COMP-i. 


09100 

09110  * 

09120 

09130 

09140 

09150 

09160  * 

09170 

09180 

09190 

09200 

09210  * 

09220 

09230 

09240 

09250 

09260  * 

09270 

09280 

09290 

09300 

09310  * 

09320 

09330 

09340 

09350 


05 

*  THIS 

05 

05 

05 

*  THIS 

05 

05 

05 

*  THIS 

05 

05 

05 

«■  TH I S 
05 

05 

05 

*  THIS 

05 

05 

05 


FILLER  PIC  9(8)  COMP-1. 

IS  OCC  4  11  FOR  REJECT  REASON  CODE  9 
FILLER  PIC  X  <  38 )  VALUE 

"  9— HAS  UNWANTED  QUEEN  BEE  INDICATOR". 

FILLER  PIC  9(7)  COMP-i. 

FILLER  PIC  9(8)  COMP-1. 

IS  OCC  #  12  FOR  REJECT  REASON  CODE  10 
FILLER  PIC  X  <  38 )  VALUE 

"  10-HAS  UNWANTED  -WHEN-DISCOVERED  CODE" 
FILLER  PIC  9<‘7)  COMP-1. 

FILLER  PIC  9(8)  COMP-1. 

IS  OCC  #13  FOR  REJECT  REASON  CODE  11 


FILLER  PIC  X (38)  VALUE 

"  11 -HAS  UNWANTED  3  DIGIT  WORKUNIT  CODE 
FILLER  PIC  9(7)  COMP-1. 

FILLER  PIC  9(8)  COMP-1. 

IS  OCC  #14  FOR  REJECT  REASON  CODE  12 
FILLER  PIC  X ( 38 >  VALUE 

"  12-HAS  AN  MDC  ACTION  TAKEN  CODE  =  E” . 
FILLER  PIC  9(7)  COMP-1. 

FILLER  PIC  9(8)  COMP-1. 

15  FOR  REJECT  REASON  CODE  13 
PIC  X ( 38)  VALUE 


FILLER 

“  13-D0E3N-T  FIT 

FILLER 

FILLER 


A  SPECIFIED  COMB.  RPT 
PIC  9(7)  COMP-1. 
PIC  9 >8)  COMP-1. 
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09360 

ft 

ft 

THIS 

IS  OCC  #  16  FOR 

09370 

05 

FILLER 

09380 

"*14~HAS  MAN-Hi 

09390 

05 

FILLER 

09400 

05 

FILLER 

09410 

ft 

ft 

THIS 

IS  OCC  #  17  FOR 

09420 

05 

FILLER 

09430 

"  15— CONTAINS  l 

09440 

05 

FILLER 

09450 

05 

FILLER 

09460 

ft 

ft 

THIS 

IS  OCC  #  18  FOR 

09470 

05 

FILLER 

09480 

"  SA  INDIRECT 

09490 

05 

FILLER 

09500 

05 

FILLER 

09510 

ft 

ft 

THIS 

IS  OCC  #  19  FOR 

09520 

05 

FILLER 

09530 

"ftSB  WORKCTRS 

09540 

05 

FILLER 

09550 

05 

FILLER 

09560 

■ft 

■K. 

THIS 

IS  OCC  #  20  FOR 

09570 

05 

FILLER 

09580 

"  SC  SERIALLY 

09590 

05 

FILLER 

09600 

05 

FILLER 

PIC  X ( 38 )  VALUE 
=  ZERO". 

PIC  9'7>  COMP-1. 

PIC  9k 8)  COMP-1. 
i:T  REASON  CODE  15 

PIC  X  (  38 )  VALUE 
3GNIZABLE  DATA". 

PIC  9(7)  COMP-1. 

PIC  9(8)  COMP-1. 
<PT  SA 

PIC  X(  8)  VALUE 
HOURS  REPORTED". 

PIC  9(7)  COMP-1. 

PIC  9(8)  COMP-1. 
iPT  SB 

PIC  X ( 88 )  VALUE 
-OUND  IN  DIRECT  I VI 

PIC  9(7)  COMP-1. 

PIC  9(8)  COMP-1. 
fPT  SC 

PIC  X ( 38 )  VALUE 


05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1. 

*  THIS  IS  OCC  #  21  FOR  SEL  RPT  SD 

05  FILLER  PIC  X(38)  VALUE 

"  SD  SELECTED  MAN-HOURS  REPORTED". 

05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1. 

*  THIS  IS  OCC  #  22  FOR  SEL  RPT  SE 

05  FILLER  PIC  X(38>  VALUE 

"*SE  SCHEDULED  INSPECTIONS  REPORTED". 
05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1. 

*  THIS  IS  OCC  #  23  FOR  SEL  RPT  SF 

05  FILLER  PIC  X(38>  VALUE 

"ftSF  SPECIAL  INSPECTION  REPORTED". 

05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1, 

ft  THIS  IS  OCC  #  24  FOR  SEL  RPT  SO 

05  FILLER  PIC  X<38>  VALUE 

"  SO  TCTO  WORK  REPORTED". 

05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1. 

*  THIS  IS  OCC  #  25  FlR  SEL  RPT  SH 

05  FILLER  PIC  X(38>  VALUE 

"  SH  CANNIBALIZATION  WORK  REPORTED". 
05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  PIC  9(8)  COMP-1. 

*  THIS  IS  OCC  #  26  FOR  COMB  WUCS  04XXX 

05  FILLER  PIC  X(38)  VALUE 

"*WUC*  04XXX  (SPEC.  INSPECTION  DATA)" 


LMI  MODIFICATION  IS  UNDERLINED. 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONI' D) 


09610  ft 

09620 

09630 

0964ij 

09650 

09660  * 


09670 

05 

09680 

09690 

05 

09700 

05 

09710  ft 

ft  THIS 

09720 

05 

09730 

09740 

05 

09750 

05 

09760  ft 

*  THIS 

09770 

05 

FILLER 

09780 

"  SG 

09790 

05 

FILLER 

09800 

05 

FILLER 

09810  * 

ft  THIS 

IS  OCC  : 

09820 

05 

FILLER 

09830 

"  SH  i 

09840 

05 

FILLER 

09850 

05 

FILLER 

09860  * 

ft  THIS 

IS  OCC  = 

09Q70 

05 

FILLER 

0*^880 

"  ftWUCj. 

lJl.ll!!i!lllll!l!l|l'|l'l!llh!!'ll!!!!tl!l!l.!itl!!!!l;f!l!l!ll.!l!. 


09890 
09^00 
09910  if- 
09920 
09930 
09940 
09950 
099*0 
09970 
09980  * 
09990  if- 
1 0000 
10010 
10020 
1 0030 


1 0040 

if- 

10050 

01 

10060 

01 

10070 

-K- 

1 0080 

01 

1 0090 

01 

10100 

01 

.10110 

01 

10120 

01 

10130 

10140 

01 

10150 

* 

10160 

01 

10170 

10180 

01 

10190 

1 0200 
10210 
10220 

1 0230 

01 

10240 

1 0250 

1 0260 

01 

10270 

1 0280 

01 

1 0290 

01 

1 0300 

01 

3  0310 

* 

1 0320 

if- 

1 0330 

# 

2  0340 

if- 

05  FILLER  PIC  9(7)  COMP-1 . 

05  FILLER  PIC  9(g)  COMP-l! 

*  THIS  IS  OCC  #  27  FOR  COMB  WUCS  11000+ 

05  FILLER  PIC  X(38>  VALUE 

"*WUC*_  11000+  (OTHER  COMB.  REPT  DATA)". 

05  FILLER  PIC  9(7)  COMP-1. 

05  FILLER  Pic  9(g)  COMP-1. 

03  SOO-TAB-ENTR I ES  REDEFINES  SOO-TAB-ENTRY- VALUES. 
04  SCO— TAB— ENTRY  OCCURS  27. 

*  N0TE:  THE  #  OF  OCCURS  (JUST  ABOVE)  MUST  MATCH  THE 

*  VALUE  IN  SOO-MAX  (AT  THE  BEGINNING  OF  THIS  hi  LEVEL) 

05  SOO- TAB-COUNT-FLAG  PIC  X. 

05  SOO-TAB-TITLE  Pin  x"(37> 

05  SOO-COUNT  PIC  9(7)  COMP- 1. 

05  SOO-MANHRS  PIC  9(g)  COMP-1. 


SORT I E-FL Y-HRS-COUNT 
SORT I E-FL Y-HRS-SW 

LRU-OFF— EQU I P- I D 
ON-EQU IP-FLAG 
OFF-EQU IP-FLAG 
FLY-HRS-TITLE 
SORTIE-TITLE 
REPORT-GROUP- T ITLE 
"NOT  DEFINED". 


PIC  9(7)  COM P-1  VALUE  0. 
PIC  9(6)  COMP-1  VALUE  0. 

PIC  XX  VALUE  "C3". 

PIC  X  VALUE  "1". 

PIC  X  VALUE  "3". 

PIC  X ( 7 )  VALUE  "FLY-HRS" , 
PIC  X ( 7 )  VALUE  "SORTIES". 
PIC  X ( 25 >  VALUE 


PIC  X ( 1 0 )  VALUE  "* 
PIC  X ( 29 )  VALUE 


PIC  X ( 39 )  VALUE 


DISPLAY-BANNER- 1  PIC  X  VALUE  "*» 

DISPLA Y— BANNER— 2  p  j  c  X ( 20 )  VALUE 

D I SPLAY-BANNER-3 . 

03  FILLER  pIC  X(10)  VALUE  "* 

03  FILLER  PIC  X( 29)  VALUE 

" CDEP  STANDARD  H.I.S.  VERSION  " 

03  DB3-VERSI0 N  FIC  X(IO). 

D I SPL A  Y-B ANNER-4 . 

03  FILLER  PIC  X<39)  VALUE 

"*  SELECTION  PROCESSING  MESSAGES". 

GARBAGE-HARN I NG  PIC  x  ( 30 )  VALi  IE 

“***  UNUSE ABLE  ABD6DA  RECORD  - 

GARBAGE-FLAG  PIC  9(6)  COMP-1  VALUE  0. 

IGNQRE-REJECTS-FLAG  PIC  9(6)  COMP-1  VALUE  1. 

*  REPORT-ID  TABLE  AND  RELATED  STUFF 


PIC  9(6)  COMP- 1  V AL UE  1 3 . 
PIC  9(6)  COMP-1. 

PIC  9(6)  COMP-1  VALUE  0. 
PIC  9(6)  COMP-1  VALUE  1. 
PIC  9(6)  COMP-1  VALUE  2. 
PIC  9(6)  COMP-1  VALUE  3. 


10350  01 

REPORT- I D-T ABLE-STUFF 

1 0360 

03 

RPT- ID-MAX 

1 0370 

03 

RPT-ID-SS 

1 0380 

03 

RPT- I D— CO— SRD-CNT 

1 0390 

AO 

-* 

RPT- I D-SA-SS 

1 0400 

03 

RPT-ID-SB-SS 

10410 

03 

RPT— IO-SC-SS 

LMI  MODIFICATION  IS  UNDERLINED. 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.  C. 
(UNCOMPILED  VERSION  r.0KT»TU 


1 0420 

03  RPT 

-ID-SD-SS 

PIC¬ 

9(6)  COMP-1  VALUE 

4 

1 0430 

03  RPT 

-IB-SE-SS 

RIC 

9.6)  COMP-1  VALUE 

10440 

03  RPT 

-I D-SF-SS 

PIC 

9(6)  COMP-1  VALUE 

»*« 

10450 

03  RPT 

-ID-SG-SS 

PIC 

9(6)  COMP-1  VALUE 

/ 

10460 

03  RPT 

-ID— SH-SS 

PIC 

9(6)  COMP- 1  VALUE 

o 

1 0470 

03  RPT 

-IB-CO-SS 

PIC 

9 ( 6  >  COMP- 1  VALUE 

9 

10480 

03  RPT 

-ID-C1-SS 

PIC 

9(6)  COMP-1  VALUE 

t 

A  ' 

10490 

03  RPT 

-ID-C2-SS 

PIC 

9(6)  COMP-1  VALUE 

1 

1 0500 

03  RPT 

-ID— C3-SS 

PIC 

9  < 6 )  COMP- 1  VALUE 

i: 

10510 

03  RPT 

-ID-C4-SS 

PIC 

9(6)  COMP-1  VALUE 

i 

10520 

03  RPT 

- I D-OFF-EQ— SS 

PIC 

9(6)  COMP-1  VALUE 

i 

10530 

03  RPT 

-ID-TABLE. 

10540 

* 

6  THIS 

IS  OCCURRENCE 

NO.  1 

( FOR 

REPORT- ID  8 A > 

10550 

05 

FILLER- 

PIC 

XX  VALUE  "SA" . 

1 0560 

05 

FILLER 

pic- 

9(6)  COMP-1  VALUE 

i 

10570 

05 

FILLER 

pic 

9(6)  COMP-1  VALUE 

o 

1 0580 

*  THIS 

IS  OCCURRENCE 

NO.  2 

( FOR 

REPORT— ID  SB ) 

10590 

05 

FILLER 

PIC 

XX  VALUE  "SB". 

10600 

05 

FILLER- 

PIC 

9(6)  COMP-1  VALUE 

1 

10610 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

o 

1 0620 

* 

THIS 

IS  OCCURRENCE 

NO.  3 

( FOR 

REPORT- ID  SC) 

10630 

05 

FILLER 

PIC 

XX  VALUE  "SC”. 

1 0640 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

1 

1 0650 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0 

1 0660 

* 

*  THIS 

IS  OCCURRENCE 

NO.  4 

( FOR 

REPORT- ID  SD) 

10670 

05 

FILLER 

PIC 

XX  VALUE  "SD". 

10680 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

10690 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0 

10700 

X 

*  THIS 

IS  OCCURRENCE 

MG.  5 

( FOR 

REPORT-ID  SE) 

1 07 1 0 

05 

FILLER 

PIC 

XX  VALUE  "SE". 

10720 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

1 0730 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0 

10740 

•ir 

*  THIS 

IS  OCCURRENCE 

MO.  6 

( FOR 

REPORT-ID  SF) 

10750 

05 

FILLER 

PIC 

XX  VALUE  "SF". 

10760 

05 

FILLER 

PIC 

9(6-)  COMP- 1  VALUE 

a! 

10770 

05 

FILLER 

PIC 

9  < 6 )  COMP— L  VALUE 

c  ? 

1 0780 

•£ 

*  THIS 

I S  OCCURRENCE 

NO .  7 

( FOR 

REPuR T — ID  SG) 

10790 

05 

FILLER 

PIC 

XX  VALUE  "SO". 

1 0800 

05 

FILLER 

PIC 

9 ( 6  >  COMP- 1  VALUE 

x  . 

10810 

05 

FILLER 

PIC 

9 ( 6  >  COMP- 1  VALUE 

0 

1 0820 

* 

*  THIS 

IS  OCCURRENCE 

NO.  8 

(FOR 

REPORT— I D  SH ) 

10830 

05 

FILLER 

pic- 

XX  VALUE  "SH". 

1 0840 

05 

FILLER 

pic 

9(6)  COMP-1  VALUE 

A  , 

10850 

05' 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

1 08-60 

* 

*  THIS 

IS  OCCURRENCE 

NO.  9 

(FOR 

REPORT— ID  CO) 

10870 

05 

FILLER 

PIC 

XX  VALUE  "CO". 

1 0880 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

5  i 

10890 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

A 

10900 

-X- 

*  THIS 

IS  OCCURRENCE 

NO.  10 

(FOR  REPORT- ID  Cl) 

10910 

05 

FILLER 

PIC 

XX  VALUE  "Cl". 

10920 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

3 

1 0930 

05 

FILLER 

PIC 

9 ( 6 >  COMP- 1  VALUE 

0 

1 0940 

THIS 

IS  OCCURRENCE 

NO.  11 

(FOF 

:  REPORT- ID  C2> 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.C 
(UNCGHPILED  VERSION  CONT'D) 


G-22 


10950 
10960 
10970 
10930  * 
10990 

1 1  ooo 
11010 
11020  * 
1 1 030 
1 1040 
11050 
11060 
11070 
11080 
1 1 090 
11100 
11110 
11120 
11130  * 
11140  * 
11150 
11160 
1 1 1 70 
11130 
1 1 1 90 
11200  * 
11210  * 
11220  * 
11230  * 
11240  * 
1 1 250  * 


FILLER 

FILLER 

FILLER 


PIC  9(6)  COMP-1  VALUE 
PIC  9(6)  C0MF-1  VALUE 


*  THIS  IS  OCCURRENCE  NO.  12  (FOR  REPORT- ID  C3> 


05  FILLER  PIC  XX  VALUE  "C3". 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

*  THIS  IS  OCCURRENCE  NO.  13  (FOR  REPORT-ID  C4> 

05  FILLER  PIC  XX  VALUE  "C^". 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

03  RIT1  REDEFINES  RPT- ID-TABLE. 

05  RIT-ENTRY  OCCURS  13. 

07  RPT- ID. 

09  FILLER  PIC  X. 

09  RPT- ID-2  PIC  X. 

07  RPT- ID-REPORT-CLASS  PIC  9(6)  COMP-1. 
07  RPT- ID-PRINT-CLASS  PIC  9(6)  COMP-1, 
s  RPT- ID-PRINT-CLASS  APPLIES  ONLY  TO  RPT-ID'S  SA 

*  SH  ONLY  (SEE  BELOW) 

03  RIT2  REDEFINES  RIT1. 

05  RIT2-ENTRY  OCCURS  13. 

07  FILLER  PIC  XX. 

07  FILLER  PIC  9(6)  COMP-1. 

07  RPT-ID-CNT  PIC  9(6)  COMP-1. 

*  RPT-ID-CNT  APPLIES  ONLY  TO  RPT- ID'S  CO  THRU 

*  C4  (SEE  ABOVE) 


1 1 470 


THRU 


OCCURS  13. 

PIC  XX. 

PIC  9(6)  COMP- 1 . 
PIC  9(6)  COMP-1. 


**■***#**•£**-*• ft***#-***-**-*'*  #■ *■*•«•*■**•*#*■*■«!•*•* 

*  WDC  NAME  TABLE  AND  SUPPORT  STUFF 


1 1260 

01 

WDC-NAME— TABLE— STUFF. 

1 1270 

03 

WDC-NO-NAME 

PIC 

X  ( 1 1  > 

VALUE 

1 1280 

03 

WDC-NAME-CO-RPT 

PIC 

X(  15) 

VALUE 

i  1290 

"SPEC  INSPECTION" 

1 1300 

03 

WDC— NAME— CO— CODE 

PIC 

X  (5) 

VALUE 

1 1310 

03 

WDC-NAME— S3 

PIC 

9(6) 

COMP-1 

1 1320 

03 

WDC-NAME— TOP 

PIC 

9  ( 6  > 

COMP-1 

1 1330 

03 

WDC-NAME-MAX 

PIC 

9(6) 

COMP— 1 

1 1340 

03 

WDC-NAME-TA8LE. 

1 1350 

THIS  IS  OCCURRENCE 

NO. 

1 

1 1 360 

05  FILLER 

PIC 

XX  XX 

VALUE  : 

1 1370 

05  FILLER 

PIC 

X  <  15) 

VALUE 

1  1330 

05  FILLER 

PIC 

X  (60) 

VALUE 

1 1390 

05  FILLER 

PIC 

9(6) 

COMP- 1 

11400 

*• 

THIS  IS  OCCURRENCE 

NO. 

1 1410 

05  FILLER 

PIC 

XX  XX 

VALUE 

11420 

05  FILLER 

PIC 

X  <  1 5  > 

VALUE 

i  i  430 

05  FILLER 

PIC 

X(60> 

VALUE 

1 1 440 

05  FILLER 

PIC 

9(6) 

COMP-1 

1 1 450 

■* 

•*> 

THIS  IS  OCCURRENCE 

NO. 

11460 

05  FILLER 

r  1 1_. 

XXXX 

VALUE  ' 

NAME**" 


05  FILLER 


P I C  X  <  1 5  >  VALUc.  'SPACE , 


FIGURE  G-l.  JG05A/CDEP /CSTAR/F2 . C 
(UK COMP I LED  VERSION  CONT’D) 


114S0 
11490 
1 1 500 
11510 
11520 
1 1 530 
1 1 540 
1 1 550 
1 1 560 
11570 
1 1 530 
1 1590 
11600 
11610 
1 1 620 
11630 
1 1640 
1 1 650 
1 1660 
11670 
11630 
1 1690 
11700 
11710 
11720 
11730 
11740 
1 1750 
1 1 760 
1 1770 
1 1730 
1 1 790 
1 1300 
11310 
1 1320 
1  1330 
1 1 340 
1 1 350 
11360 
1 1 370 
1 1 330 
1 1390 
1 1900 
11910 
11920 
1 1 930 
1 1 940 
1 1 950 
1 1 960 
1 1 970 
11930 
1 1 990 
12000 


05 

FILLER 

PIC 

X ( 60 )  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VrtLUE 

0- 

it 

it 

THIS 

IS  OCCURRENCE  NO.  4 

05 

FILLER 

PIC 

XX XX  VALUE  SPACE. 

05 

FILLER 

P I  c 

X  < 1 5 >  VALUE  SPACE. 

05 

FILLER 

PIC 

X  <  60 )  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

r, 

i 

it 

it 

THIS 

IS  OCCURRENCE  NO.  5 

05 

FILLER 

PIC 

XXX X  VALUE  SPACE. 

05 

FILLER 

PIC 

X (15)  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 60 )  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

jt 

it 

THIS 

IS  OCCURRENCE  NO.  6 

05 

FILLER 

PIC 

•XX XX  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 15)  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 60 )  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

* 

it 

THIS 

IS  OCCURRENCE  NO.  7 

05 

FILLER 

PIC 

XX XX  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 1 5 )  VALUE  SPACE. 

05 

FILLER 

PIC 

X (60)  VALUE  SPACE- 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

it 

it 

THIS 

IS  OCCURRENCE  NO.  3 

05 

FILLER 

PIC 

XXX X  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 1 5 >  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 60 >  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

it 

J£ 

THIS 

IS  OCCURRENCE  NO.  9 

05 

FILLER 

PIC 

XX XX  VALUE  SPACE. 

05 

FILLER 

PIC 

X ( 1 5 )  VALUE  SPACE- 

05 

FILLER 

PIC 

X  <  60 )  VALUE  SPACE. 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

0. 

# 

* 

THIS 

IS  OCCURRENCE  NO.  10 

05 

FILLER 

PIC 

XXXX  VALUE  SPACE. 

05 

FILLER 

PIC 

X  < 15)  VALUE  SPACE. 

05 

filler 

PIC 

X ( 60 )  VALUE  SPACE . 

05 

FILLER 

PIC 

9(6)  COMP-1  VALUE 

<x 

0: 

3  WN1 

PR  REDEFINES  WDC— NAME 

— TABi 

L-C.  • 

05 

WNTR— ENTRY 

01 

3 CURS  10. 

07  WDC-NAME-ID 

PIC 

V  V  V  v 
r.  /*=.  n  m 

07  WDC-NAME 

PIC 

X(  15) . 

07  wDC-NAME-WDCS 

PIC 

X  ( 60 ) . 

it 

■a* 

THE  ABOVE  ENTRY  IS 

FOR  1 

DEFAULT— VALUED  MDC 

NAM 

.4 

IF  THEY  ARE  EVER'  US 

ED 

07  WDC-NAME— ST ART 

p  T  Q 

9(6)  COMP-1. 

it 

a- 

*  *  INDIRECT  WORK  WUC  TABLE  STUFF 

# 

01  I  ND—W'JC— STUFF . 

03  IND-WUC-MAX  PIC  9(6)  COMP-1  VALUE  5. 

03  I ND-WUC-S3  PIC  9(6)  COMP-1- 

FIGURE  G-l .  JG05A/CPEP/CSTAR/P2 • C 
(UNCOMPILED  VERSION  COST'D) 


G-24 


12010 

0: 

3  I ND-WUC-T  ABLE . 

12020 

•s- 

■a* 

THIS 

IS  OCCURRENCE 

NO. 

1 

12030 

05 

FILLER 

PIC 

V  V  V 

A  A  A 

VALUE 

"ALT" 

12040 

* 

THIS 

IS  OCCURRENCE 

NO. 

2 

1  2050 

05 

FILLER 

PIC 

XXX 

VALUE 

“CMP" 

1 2060 

* 

>4. 

THIS 

IS  OCCURRENCE 

NO. 

o 

1 2070 

05 

FILLER 

PIC 

XXX 

VALUE 

"DTL" 

1 2080 

it 

Hr 

THIS 

IS  OCCURRENCE 

NO. 

4 

1 2090 

05 

FILLER 

PIC 

XXX 

VALUE 

"  L  VE  " 

12100 

<■ 

THIS 

IS  OCCURRENCE 

NO. 

CT, 

%»• 

12110 

05 

FILLER 

PIC 

XXX 

VALUE 

"  TRN  ” 

12120 

03  INBWR  REDEFINES 

IND- 

wuc 

-TABLE. 

12130 

05 

IND-WUC-ENTR 

OCCURS  5. 

12140 

07  INB-WUC- 

1-3 

PIC 

XXX. 

12150 

£- 

12160 

Hr 

12170 

121  SO 

* 

Hr  LOOM 

ACTION  TAKEN  CODE 

INDEX  CROSS  REF  TABLES  AND  RELA 

12190 

it  STUFF 

1 2200 

01 

AT  C— FR0M-6DA-DAT A . 

12210 

03  SPEC- I NSP-LATC-I NDE X 

PIC  9(6)  COMP-1  VALUE 

1. 

1 2220 

03  ATC 

-TAB-SS 

PIC  9(6 >  COMP-1. 

1 2230 

03  ATC 

-TAB-MAX 

PIC  9(6)  COMP-1  VALUE 

29. 

12240 

03  ATC 

-2-LATC-DATA. 

12250 

X. 

*  THIS: 

IS  OCCURRENCE  NO. 

t 

i. 

(FOR  6DA  ATC  A) 

1 2260 

05 

FILLER 

PIC  X  VALUE  "A". 

12270 

05 

FILLER 

PIC  9(o>  COMP- i  VALUE 

100. 

1 2230 

05 

FILLER 

PIC  9 \ 6 )  COMP-1  VALUE 

100. 

122*0 

05 

FILLER 

PIC  9 < 6 >  COMP-1  VALUE 

0. 

1 2300 

05 

FILLER 

PIC  9(6)  COHF-1  VALUE 

•yy 

12310 

A 

*  THIS 

IS  OCCURRENCE  NO. 

2 

(FOR  6Bft  ATC  B) 

12320 

05 

FILLER 

PIC  X  VALUE  "B". 

12330 

05 

FILLER 

PIC  9(6)  COMP-i  VALUE 

100. 

12340 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

100. 

12350 

05 

FILLER 

PIC  9(6)  COMP-i  VALUE 

A 

12360 

05 

FILLER 

PIC  9 ( 6 )  COMP— 1  VALUE 

21. 

12370 

* 

*  THIS 

IS  OCCURRENCE  NO. 

c* 

(FOR  6DA  ATC  C> 

1 2330 

05 

FILLER 

PIC  X  VALUE  "C". 

12390 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

ioo. 

12400 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

i  00 . 

12410 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

0. 

12420 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

*-  -  *«  m 

12430 

X- 

*  THIS 

IS  OCCURRENCE  NO. 

4 

(FOR  6-DA  ATC  D) 

12440 

05 

FILLER 

PIC  X  VALUE  "D". 

12450 

05 

FILLER 

PIC  9=6)  COMP- i  VALUE 

1 00 . 

12460 

05 

FILLER- 

PIC  9(6)  COMP-1  VALUE 

100. 

12470 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

0. 

12480 

05 

FILLER 

PIC  9(6)  COMP- i  VALUE 

20. 

3  2490 

*  THIS 

IS  OCCURRENCE  NO. 

er 

•w* 

(FOR  6DA  ATC  F> 

12500 

05 

FILLER 

PIC  X  VALUE  "F'! . 

12510 

05 

FILLER 

PIC  9(6-)  COMP—  1  VALUE 

o. 

12520 

05 

FILLER 

PIC  9(6)  COMP-1  VALUE 

1 2530 

05 

FILLER 

PIC  9(6)  COMP-i  VALUE 

o* 
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G-25 


|'ll|i'.:;i|ill'!||lll!|IW  . .  mmmim 


m 

♦  rf 


12540 

05 

FILLER 

PIC 

9(6)  COHP-1 

VALUE 

22 

12550 

THIS 

IS  OCCURRENCE 

NO. 

w 

(  FOR 

6DA  ATC  G) 

12560 

05 

FILLER 

PIC 

X  VALUE  "G". 

12570 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

1 2530 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

12590 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

12600 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

22, 

12610 

THIS 

IS  OCCURRENCE 

NO. 

7 

<  FOR 

6DA  ATC  H) 

12620 

05 

FILLER 

PIC 

X  VALUE  "  H‘! . 

12630 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

v  * 

12640 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

6- 

12650 

05 

FILLER 

PIC 

9(6)  COMP- 1 

VALUE 

100 

12660 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

1 00 

12670 

THIS 

IS  OCCURRENCE 

NO. 

s 

<  FOR 

6DA  ATC  J) 

12630 

05 

FILLER 

PTC 

X  VALUE  "-J". 

12690 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

12700 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

5, 

12710 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

12720 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

22. 

12730 

THIS 

IS  OCCURRENCE 

NO. 

9 

(FOR 

6DA  ATC  K> 

12740 

05 

FILLER 

PIC 

X  VALUE  MK". 

12750 

05 

FILLER 

PIC 

9(6 >  COMP-1 

VALUt 

V  • 

12760 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

5- 

12770 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

12730 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

J—f . 

m 

12790 

if 

THIS 

IS  OCCURRENCE 

NO. 

10 

( FOR 

:  6DA  ATC  L) 

12300 

05 

FILLER 

FTC 

X  VALUE  "L", 

12810 

05 

FILLER 

PIC 

9 ( 6  >  COMP- 1 

VALUE 

0. 

12320 

05 

FILLER 

P I  c 

9(6)  COMP-1 

VALUE 

5. 

12330 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

1 2840 

05 

FILLER 

FTC 

9(6)  COMP-1 

VALUE 

22. 

12850 

* 

THIS 

IS  OCCURRENCE 

NO. 

11 

<  FOR 

:  6DA  ATC  M) 

12860 

05 

FILLER 

FTC 

X  VALUE  " M " . 

12870 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100 

1 2880 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100 

12390 

05 

FILLER 

FTC 

9(6)  COMP-1 

VALUE 

0. 

12900 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

24 . 

1 29 1 0 

■a- 

THIS 

IS  OCCURRENCE 

NO. 

12 

(FOR  6EiA  ATC  N> 

12920 

05 

FILLER 

FTC 

X  VALUE  "N". 

12930 

05 

FILLER 

FTC 

9  < 6 }  COM P— 1 

VALUE 

100 

12940 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100 

12950 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

n  , 

12960 

05 

FILLER 

FTC 

9(6)  COMP-1 

VALUE 

24  - 

1 2970 

* 

J4 

THIS 

IS  OCCURRENCE 

NO. 

13 

(FOR  6DA  ATC  P) 

12930 

05 

FILLER 

PIC 

X  VALUE  !1 

12990 

05 

FILLER 

i  A  - 

9(6)  COMP-1 

VALUE 

i. 

1 3000 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

1 00 « 

1 30 1 0 

05 

FILLER 

FTC 

9(6)  COM P-1 

VALUE 

100, 

13020 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13030 

* 

8- 

THIS 

IS  OCCURRENCE 

NO. 

14 

•FOR 

:  6DA  ATC  Q> 

13040 

05 

F I LLER 

PIC 

X  VALUE  "G". 

13050 

05 

FILLER 

PIC 

9(6>  COMF— i 

VALUE 

i  - 

13060 

05 

FILLER 

FTC 

9(6)  COMP- 1 

VALUE 

luC. 
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13070 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13080 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13090 

THIS 

IS  OCCURRENCE 

NO.  15 

(  FOR  6DA  ATC  R) 

13100 

05 

FILLER 

PIC 

X  VALUE  "R", 

131 10 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

1. 

13120 

05 

FILLER 

PIC 

9(6)  COMP— 1 

VALUE 

100. 

13130 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13140 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13150 

THIS 

IS  OCCURRENCE 

NO.  16 

(FOR  6DA  ATC  S) 

13160 

05 

FILLER- 

PIC 

X  VALUE  "S". 

13170 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

13180 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

/  ■ 

13190 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

100. 

13200 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13210 

* 

THIS 

IS  OCCURRENCE 

NO.  17 

(FOR  6DA  ATC  V) 

13220 

05 

FILLER 

PIC 

X  VALUE  "V". 

13230 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

1 3240 

05 

FILLER- 

PIC 

9(6)  COMP-1 

VALUE 

5. 

1 3250 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

1 3260 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

m 

13270 

«■ 

THIS 

IS  OCCURRENCE 

NO.  18 

(FOR  6DA  ATC  X) 

1 3280 

05 

FILLER 

PIC 

X  VALUE  "X". 

1 3290 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

13300 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

1 . 

13310 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0. 

1 3320 

05 

FILLER 

PIC 

9(6)  COMF’-l 

VALUE 

22. 

13330 

# 

THIS 

IS  OCCURRENCE 

NO.  19 

(FOR  6DA  ATC  Y) 

13340 

05 

FILLER 

PIC 

X  VALUE  "Y". 

13350 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

7. 

1 3360 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13370 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13380 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13390 

* 

* 

THIS 

IS  OCCURRENCE 

NO.  20 

(FOR  6DA  ATC  Z) 

1 3400 

05 

FILLER 

PIC 

X  VALUE  "Z". 

13410 

05 

FILLER- 

pic- 

9(6)  COMP-1 

VALUE 

0. 

1 3420 

05 

FILLER 

pic 

9(6)  COMF'-l 

VALUE 

5. 

13430 

05 

FILLER- 

PIC 

9(6)  COMF’-l 

VALUE 

0. 

13440 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

21. 

13450 

THIS 

IS  OCCURRENCE 

NO.  21 

(FOR  6DA  ATC  1) 

13460 

05 

FILLER 

PIC 

X  VALUE  "l". 

13470 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13480 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

100. 

13490 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

0 . 

1 3500 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

20. 

13510 

* 

THIS 

IS  OCCURRENCE 

NO.  22 

(FOR  6DA  ATC  2) 

13520 

05 

FILLER 

PIC 

X  VALUE  "2". 

13530 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

100. 

13540 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 

13550 

05 

FILLER 

PIC 

9(6)  COMF'-l 

VALUE 

0. 

13560 

05 

FILLER 

PIC 

c'  (  6 )  COMP-1 

VALUE 

20, 

13570 

THIS 

IS  OCCURRENCE 

NO.  23 

(FOR  6-DA  ATC  3) 

13530 

05 

FILLER- 

PIC 

X  VALUE  "3". 

13590 

05 

FILLER 

PIC 

9(6)  COMP-1 

VALUE 

100. 
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1 3600 

05 

FILLER 

PIC  9(6) 

COMP- 1 

VALUE 

1 00 . 

13610 

05 

FILLER 

PIG  9(6) 

COMP— 1 

VALUE 

0. 

1 3620 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

1 3630 

* 

*  THIS 

IS  OCCURRENCE  NO.  24 

(FOR  6DA 

ATC  4) 

1 3640 

05 

FILLER 

PIC  X  VALUE  "4". 

13650 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

1 00 . 

1 3660 

05 

FILLER 

PIG  9(6) 

COMP-1 

VALUE 

100. 

13670 

05 

FILLER 

PIC  9(6) 

COMF'-l 

VALUE 

0. 

13680 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

13690 

* 

*  THIS 

IS  OCCURRENCE  NO.  25 

(FOR  6DA 

ATC  5) 

13700 

05 

FILLER 

PIC  X  VALUE  "5" . 

13710 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

100. 

13720 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

100. 

13730 

05 

FILLER- 

PIC  9(6) 

COMP-1 

VALUE 

0. 

13740 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

1 3750 

*  THIS 

IS  OCCURRENCE  NO.  26 

(FOR  6DA 

ATC  6) 

13760 

05 

FILLER 

PIC  X  VALUE  '‘6". 

13770 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

100. 

13780 

05 

FILLER 

PIC  9(6) 

COMF'-l 

VALUE 

100. 

13790 

05 

FILLER- 

PIC  9(6) 

COMP-1 

VALUE 

0. 

1 3800 

05 

FILLER 

PIC  9(6) 

COMP— 1 

VALUE 

20. 

13810 

*  THIS 

IS  OCCURRENCE  NO.  27 

(FOR  6DA 

ATC  7) 

13820 

05 

FILLER 

PIC  X  VALUE  "7". 

1 3830 

05 

FILLER- 

PIC  9(6) 

COMP-1 

VALUE 

100. 

1 3840 

05 

FILLER 

PIC  9(6) 

COMF’-l 

VALUE 

100. 

1 3850 

05 

FILLER 

PIC  9(6) 

COMF’-l 

VALUE 

0. 

1 3860 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

1 3870 

* 

*  THIS 

IS  OCCURRENCE  NO.  28 

(FOR  6DA 

ATC  8) 

13880 

05 

FILLER- 

PIC  X  VALUE  "8". 

13890 

05 

FILLER 

PIC  9(6) 

COMF’-l 

VALUE 

100. 

13900 

05 

FILLER- 

PIC  9(6) 

COMP- 1 

VALUE 

100. 

13910 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

0. 

1 3920 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

1 3930 

*  THIS 

IS  OCCURRENCE  NO.  29 

(FOR  6DA 

ATC  9) 

13940 

05 

FILLER 

PIC  X  VALUE  "9". 

13950 

.  05 

FILLER- 

PIC  9(6) 

COMP-1 

VALUE 

100. 

13960 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

100. 

13970 

05 

FILLER 

PIC  9(6) 

COMP-1 

VA  JE 

0. 

1 3980 

05 

FILLER 

PIC  9(6) 

COMP-1 

VALUE 

20. 

1 3990 

03  ATC 

-2-LATC-R  REDEFINES  i 

ATC-2-LATC-DATA. 

14000 

05 

ATC-2-LATC-ENTRY 

OCCURS 

29. 

14010 

07  ATC-TAB-ATC 

PIC  X. 

1 4020 

07  ATC-TAS-ON-LINK 

PIC  9(6) 

COMP-1 . 

1 4030 

07  ATC-TAB-ON-EQ-L ATC- INDEX 

PIC  9(6)  COMF'-l. 

14040 

07  ATC-TAB-OFF-LINK  PIC 

9(6)  COMP-1. 

14050 

07  ATC-T  AB-OFF-EQ-! 

LATC-INDEX  PIC  9< 

6)  COMP-1. 

1406C 

■St¬ 

14070 

s' 

*  THIS 

IS  THE  HOW-MAL  TO  LATC  CONVERSION  DATA 

1 4080 

3- 

1 4090 

01 

HOW-HAL¬ 

-FR0H-6DA-D AT A . 

14100 

OS  HH- 

TAB-SS 

PIC  9(6) 

COMP-1. 

14110 

03  HM- 

2-LATC-BATA. 

14120 

*  THE 

SE  ARE  FOR  ON  EQUIP 

HOW-MAL  •'S 

ONLY 
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14130  * 
14140  * 
14150 
14160 
14170  # 
14  ISO 
14190 
14200  * 
14210 
14220 
14230  * 
14240 
14250 
14260  * 
14270 
14280 
14290  * 
14300  * 
14310 
14320 
14330  * 
14340 
14350 
1 4:360  * 
14370  # 
1 4380 
14390 
14400 
14410 
1 4420 
14430 
14440  * 
14450  * 
14460  # 
14470  * 
14480  * 


*  THIS  IS  OCCURRENCE  NO.  1  < 

05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO.  2  < 

05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO.  3  < 

05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO.  4  ( 

05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO.  5  ( 

05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO.  6  ( 

*  HOW-MAL ' S  OF  THIS  GROUP) 


(FOR  6DA  HOW-MAL  799) 
PIC  XXX  VALUE  "799". 
PIC  9(6)  COMP-1  VALUE 
(FOR  6DA  HOW-MAL  300) 
PIC  XXX  VALUE  "800". 
PIC  9(6)  COMP-1  VALUE. 
(FOR  6DA  HOW-MAL  303) 
PIC  XXX  VALUE  "803" . 
PIC  9(6)  COMP-1  VALUE 
(FOR  6DA  HOW-MAL  804) 
PIC  XXX  VALUE  "804". 
PIC  9(6)  COMP-1  VALUE 
(FOR  6DA  HOW-MAL  805) 
PIC  XXX  VALUE  "805". 
PIC  9(6)  COMP-1  VALUE 
(FOR  ALL  OTHER  6DA 


05  FILLER 
05  FILLER 

*  THIS  IS  OCCURRENCE  NO. 


PIC  XXX  VALUE  "ALL". 
PIC  9(6)  COMP-1  VALUE 
7  (FOR  6DA  HOW-MAL  812) 


05  FILLER  PIC  XXX  VALUE  "812". 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

THIS  IS  OCCURRENCE  NO.  8  (FOR  ALL  OTHER  6DA 
HOW-MAL -'S  OF  THIS  CROUP) 

05  FILLER  PIC  XXX  VALUE  "ALL". 

05  FILLER  PIC  9(6)  COMP-1  VALUE 

5  HM-2-LATC-R  REDEFINES  HM-2-L AT C-DAT A . 

05  HM-2-LATC-ENTRY  OCCURS  8. 

07  HM-TAB-HOW-MAL  PIC  XXX. 

07  HM-TAB-LATC- INDEX  PIC  9(6)  COMP-1. 


"812". 

1  VALUE 


*  QUEEN  BEE  /  COMPONENT  POSITION  TABLE  +  SUPPORT  STUFF 


14490  01 

GUEEN-BEE-COMP-PGS-STUFF. 

14500 

03 

COMP-POS-QB-TAB-SS 

PIC  9(6)  COMP-1 

VALUE  0. 

14510 

03 

GB-TAB-SS 

PIC  9(6)  COMP-1 

VALUE  0. 

14520 

03 

QB-TAB-MAX 

PIC  9(6)  COMP-1 

VALUE  3. 

14530 

03 

QB-TAB. 

14540 

05  FILLER 

PIC  X (30)  VALUE 

" INCLUDED" . 

1 4550 

05  FILLER 

PIC  X (30)  VALUE 

"EXCLUDED". 

1 4560 

05  FILLER 

PIC  X ( 30 )  VALUE 

"ONLY". 

14570 

03 

QBTR  REDEFINES  QB-TAB. 

14580 

05  QB-TAB-ENTRY 

OCCURS  3. 

14590 

07  QB-T  AB-SEL-F'R  I  NT . 

1 4600 

09  GB-TAB-DIR 

-KEY  PIC  XXXX. 

14610 

09  FILLER 

PIC  XXXX. 

1 4620 

07  FILLER 

PIC  X ( 22 ) . 

14630  * 

THE  ABOVE  FILLER  1)  IS  GROWTH  ROOM,  AND  2) 

PROVIDES 

14640  *• 

«■ 

WORD  ALIGNMENT  FOR  BOTH 

HONEYWELL  +  CDC  COMPUTERS 

1 4650 
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1 4660 

* 

14670 

1 4680 

*  MAIN  SELECTION  TABLE 

AND  SUPPORT  S 

TUFF 

1 4690 

■ss- 

14700 

01 

SELECT I ON-TABLE-STUFF . 

14710 

03 

3DIG-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

30. 

14720 

03 

3D I G— START 

PIC 

9(6) 

COMP- 1 

VALUE 

0. 

14730 

03 

AFSC-CNT 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

14740 

03 

AFSC-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

99. 

14750 

03 

AFSC-SS 

pic- 

9(6) 

COMP-1. 

1 4760 

03 

AFSC-START 

pic 

9(6) 

COMP-1 

VALUE 

0. 

14770 

03 

ASSIGN-CODE-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

10. 

1 4730 

03 

ASSIGN-CODE-START 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

14790 

03 

LAB-CAT-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

6. 

14300 

03 

LABrCAT-ST  ART 

PIC 

9  ( 6 ) 

COMP-1 

VALUE 

0. 

14310 

03 

MAJCOM-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

4. 

1 4820 

03 

MA JCGM-ST ART 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

14330 

03 

RPT-SS 

PIC 

9(6) 

COMP-1. 

14840 

03 

RPT-START 

PIC 

9  ( 6 ) 

COMP-1 

VALUE 

0. 

14850 

03 

SRD-CNT 

PIC 

9(6) 

COMP- 1 

VALUE 

0. 

14360 

03 

SRD-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

12. 

14370 

03 

SRD-SS 

PIC 

9(6) 

COMP-1. 

14330 

03 

SRD-START 

PIC 

9  ( 6 ) 

COMP-1 

VALUE 

0. 

14890 

03 

TYPE-MA I NT-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

20. 

14900 

03 

type-maint-start 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

14910 

03 

WCTR-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

300 

14920 

03 

WCTR-START 

PIC 

9(6) 

COMP-1 

VALUE 

0. 

14930 

03 

WDC-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

28. 

14940 

03 

WDC-SS 

PIC 

9(6) 

COMP-1 . 

14950 

03 

SEL-TAB-SS 

PIC 

9(6) 

COMP-1 . 

1 4960 

03 

SEL-TAB— SSl 

PIC- 

9(6) 

COMP-1. 

14970 

03 

SEL-TAB-SS2 

PIC 

9(6) 

COMP-1. 

14980 

03 

SEL-TAB-SS3 

PIC- 

9(6) 

COMP-1 . 

14990 

03 

SEL-TAB-START 

PIC 

9(6) 

COMP-1. 

15000 

03 

SEL-TAB-AVAIL 

PIC 

9(6) 

COMP-1 

VALUE 

1. 

15010 

03 

SEL-TAB-CNT 

PIC 

9(6) 

COMP-1 . 

15020 

03 

SEL-TAB-MAX 

PIC 

9(6) 

COMP-1 

VALUE 

500 

1 5030 

03 

SELECT I ON-TABLE-ENTRY  OCCURS 

500. 

15040 

05  SEL-TAB-KEY. 

15050 

07  SEL-TAB-KEY 

-1-6. 

15060 

09  SEL-TAB 

-KEY- 1-5. 

15070 

1 1  SEL 

-TAD-KEY- 

-1-4. 

15080 

13 

SEL-TAB- 

-KEY- 

1-3. 

1 5090 

15  SEL- 

-TAB- 

KEY- 1-2. 

15100 

17 

SEL- 

TAS-KEY- 

1 . 

15110 

19 

SEL-TAB- 

•KEY-1- 

-NUM 

15120 

17 

FILLER  PIC  X. 

15130 

1 5  SEL- 

-TAB- 

KEY-3. 

15140 

17 

SEL- 

TAB-KEY- 

-3-NUM 

PIC 

15150 

13 

SEL-TAB- 

-KEY- 

4. 

15160 

15  SEL- 

-TAB- 

KEY-4— NUM  PIC 

9. 

15170 

11  FILLER  P.IC 

X. 

15130 

09  FILLER 

PIC 

X. 
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15190 

07  FILLER- 

PIC  X. 

15200 

OS  SEL-TAB-LINK1 

PIC  9(6)  COMP-1. 

15210 

05  SEL-T  AB-L I NK2 

PIC  9(6;  COMP-1. 

15220 

* 

15230 

01 

DUMP-SEL-TAB-ENTRY . 

15240 

03  D-S-T-E-ENTRY-NO 

PIC  9999. 

15250 

03  FILLER 

PIC  X  VALUE  SPACE. 

1 5260 

03  D-S-T-E-KEY. 

15270 

05  FILLER 

PIC  XXX. 

15280 

05  D-S-T— E-KEY-3 

PIC  X. 

15290 

05  D-S-T -E-KEY-4 

PIC  X. 

1 5300 

05  FILLER 

PIC  X (5) . 

15310 

03  FILLER 

PIC  X  VALUE  SPACE. 

15320 

03  D-S-T-E-LINK1 

PIC  9(6). 

15330 

03  FILLER 

PIC  X  VALUE  SPACE. 

15340 

03  D-S-T-E-L I NK2 

PIC  9(6). 

15350 

*■ 

15360 

#• 

1 5370 

15330 

*  GENERAL  USE  CONSTANTS 

(ALPHA  AND  NUMERIC) 

15390 

* 

15400 

01 

MIN-ONE 

PIC  S9 ( 7 )  COMP-1  VALUE  -1. 

15410 

01 

SZERO 

PIC  9(7)  COMP-1  VALUE 

0. 

15420 

01 

ONE 

PIC  9(7)  COMP-1  VALUE 

1. 

15430 

01 

TWO 

PIC  9(7)  COMP-1  VALUE 

2. 

15440 

01 

THREE 

PIC  9(7)  COMP-1  VALUE 

3. 

15450 

01 

FOUR 

PIC  9(7)  COMP-1  VALUE 

4. 

15460 

01 

FIVE 

PIC  9(7)  COMP-1  VALUE 

5. 

15470 

01 

SIX 

PIC  9(7)  COMP-1  VALUE 

6. 

15480 

01 

SEVEN 

PIC  9(7)  COMP- 1  VALUE 

7. 

15490 

01 

EIGHT 

PIC  9(7)  COMP-1  VALUE 

8. 

1 5500 ' 

01 

NINE 

PIC  9(7)  COMP-1  VALUE 

9. 

15510 

01 

TEN 

PIC  9(7)  COMP-1  VALUE 

10. 

1 5520 

01 

N-U 

PIC  9(7)  COMP-1  VALUE 

11. 

15530 

01 

N-12 

PIC  9(7)  COMP-1  VALUE 

12. 

15540 

01 

N-13 

PIC  9(7)  COMP-1  VALUE 

•*  •“ » 

J.  O  * 

15550 

01 

N-14 

PIC  9(7)  COMP-1  VALUE 

14. 

15560 

01 

N-15 

PIC  9(7)  COMP-1  VALUE 

15. 

15570 

01 

N-24 

PIC  9(7)  COMP-1  VALUE 

24. 

15580 

01 

M-50 

PIC  9(7)  COMP-1  VALUE 

50. 

15590 

01 

N-60 

PIC  9(7)  COMP-1  VALUE 

60. 

15600 

01 

N-100 

PIC  9(7)  COMP-1  VALUE 

100. 

15610 

01 

N-150 

PIC  9(7)  COMP-1  VALUE 

150. 

15620 

01 

N-333 

PIC  9(7)  COMP-1  VALUE 

•~i  ■-*» 

15630 

01 

N-1000 

PIC  9(7)  COMP-1  VALUE 

1000. 

15640 

01 

N-luOOOOO 

PIC  9(7)  COMF-1  VALUE 

1 00000 

1 5650 

01 

2ZER0S 

PIC  XX  VALUE.  "00". 

1 5660 

01 

WUC-03 

PIC  XX  VALUE  "03". 

15670 

01 

WUC-04 

PIC  XX  VALUE  "04". 

15680 

01 

WUC-09 

PIC  XX  VALUE  "09". 

15690 

01 

THREE-X 

PIC  X  VALUE  "3". 

15700 

01 

FOUR-X 

PIC  X  VALUE  "4". 

15710 

01 

SIX-X 

PIC  X  VALUE  "6". 
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15720 

01 

E 

PIC 

X 

VALUE  "E 

15730 

01 

F 

PIC 

V 

/% 

VALUE  "F 

15740 

01 

H 

PIC 

X 

VALUE  "H 

1 5750 

01 

I 

PIC 

V 

A 

VALUE  "I 

15730 

01 

M 

PIC 

V 

s\ 

VALUE  "M 

15770 

01  ’ 

N 

PIC 

X 

VALUE  "N 

15730 

01 

F* 

PIC 

X 

VALUE  "P 

15790 

01 

Q 

PIC 

X 

VALUE  "Q 

1 5800 

01 

R 

PIC 

X 

VALUE  "R 

15810 

01 

T 

PIC 

X 

VALUE  "T 

15820 

01 

IJ 

PIC 

X 

VALUE  "U 

15830 

01 

X 

PIC 

X 

VALUE  "X 

15840 

01 

z 

PIC 

X 

VALUE  "Z 

15850 

01 

COMMA 

PIC 

V 

A 

VALUE  ", 

1 5860 

01 

NOTHING 

PIC 

V 

s\ 

<  8  >  VALUE 

15870 

01 

CONST ANT-OF-ALL 

PIC 

V 

J\ 

XX  VALUE 

"■•nN'IONE**' 

"ALL". 


15830 

15890 

15900 

15910 

15920 


*  MISCELLANEOUS  VARIABLES  AND  WORK  AREAS 


1 5930 

01 

LATC- INDEX 

PIC 

9(6)  COMP-1 

15940 

01 

MANHOURS 

PIC 

9c 7)  COMP-1 

15950 

01 

0LD-6DA— 1-79 

PIC 

X  <  79 ) . 

15960 

01 

REJECT-REASON 

PIC 

99  COMP-1. 

15970 

01 

ROW- INDEX 

PIC 

99  COMP-1. 

15980 

01 

TIME-1 

PIC 

9(7)  COMP-1 

15990 

01 

TIME-2 

PIC 

9(9)  COMP-1 

16000 

16010 

01 

BISPLAY-NUM 

PIC 

Z  ( 5 )  9 . 

16020 

01 

D I SP-NUM-6  REDEF I NES  D I 

SPLAY-NUM. 

16030 

03  FILLER 

PIC 

XX. 

16040 

03  DISP-NUM-4. 

16050 

05  FILLER 

PIC 

XX. 

16060 

16070 

# 

05  DISP-NUM-2 

PIC 

XX. 

16080 

01 

DISPLAY-UNITS 

PIC 

9(10). 

16090 

01 

D I SPLAY- 1 OTHS  REDEFINES 

DISPLAY- 

-UNITS 

16100 

16110 

it 

PIC 

9 ( 9 ) V9 . 

16120 

01 

SRD. 

16130 

03  SRD-1 

PIC 

V 

A  m 

16140 

16150 

& 

03  SRD— 2— 3 

PIC 

XX. 

16160 

01 

TEST-WCTR-STUFF. 

16170 

03  WCTR— SPLIT 

PIC 

9(6)  C.OMP-1 

16180 

03  TEST— WCTR-1 -5. 

16190 

05  TEST- WCTR- 1-4. 

1 6200 

07  TEST- WCTR- 1- 

3  PIC 

XXX. 

16210 

07  TEST-WCTR-4 

PIC 

X. 

16220 

16230 

* 

05  TEST-WCTR— 5 

PIC 

V 

/\  m 

1 6240 

01 

TOKEN-STUFF. 
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16250 

03 

TOKEN-VALUE 

PIC  9(7)  COMP-1. 

16260 

03 

TOK-MAX 

PIC  9(6)  COMP-1  VALUE 

1 6270 

03 

TOK-SIZE 

PIC  9(6)  COMP-1. 

1 6280 

03 

TOK-SS 

PIC  9(6)  COMP-1. 

1 6290 

03 

TOKEN. 

1 6300 

05  TOKEN- 1- 

•15. 

* 

16310 

07  TOKEN-1-7. 

16320 

08  TOKEN- 1-6 

• 

1 6330 

09 

TOKEN- 1 

-5. 

1 6340 

11  TOKEN- 1 

-4. 

1 6350 

13 

TOKEN- 1-3. 

16360 

15 

TOKEN- 1-2. 

16370 

17  TOKEN- 1  PIC  X. 

1 6380 

17  TOKEN-2  PIC  X. 

16390 

15 

FILLER  PIC  X. 

16400 

13 

FILLER  PIC  X. 

16410 

11  FILLER 

PIC  X. 

16420 

09 

FILLER 

PIC  X. 

16430 

08  FILLER 

PIC  X. 

1 6440 

07  FILLER 

PIC  X (8) . 

1 6450 

05  FILLER 

PIC  X(10>. 

16460 

03 

TOKENR  REDEFINES  TOKEN. 

16470 

05  TOK 

OCCURS  25. 

16480 

07  TOK- 

■NUM 

PIC  9. 

16490  * 

16500  01  UNITS. 

16510  03  UN ITS- VALUE  PIC  99. 

16520  01  UNITS-COMP  PIC  9(6)  COMP-1. 

16530  * 

16540  * 

*  *  THIS  CODE  IS  RETRIEVED  BY  A  $  SELECT A  AGAINST  FILE 

*  *  MSMET /CDEP/F'OMS/TRANS.  T 1 


*  *  TRANSLATION  TABLE  AND  SUPPORT  STUFF 


01 

EQUALS I ON 

PIC 

X  VALUE 

01 

TRANSL— SSI -CDC 

PIC 

9(10)  COMP— 1  VALUE  0 

01 

TRS1C  REDEFINES 

TRANSL— SSI -CDC. 

03  FILLER 

PIC 

X  ( 9) . 

03  TRANSL-SS1 — C 

:DC-CHAR  PIC 

X. 

01 

TRANSL-SS2-HW 

PIC 

9(6)  COMP-1  VALUE  0. 

01 

TRS2H  REDEFINES 

TRANSL-SS2-HW . 

03  FILLER 

PIC 

X  (5) . 

03  TRANSL— SS2-HW— CHAR  PIC  X. 

«■ 

*  *  THE  CDEP  SYSTEM  WAS  DESIGNED  SO  THAT  ANY  TIME  THAT  OUTPUT 

*  *  PRODUCTS  CONTAINED  WORK  UNIT  CODES  WHICH  NEEDED  TO  APPEAR 

*  *  IN  ORDER?  THEY  WOULD  APPEAR  IN  THE  SAME  SEQUENCE  AS  FOUND 

*  #■  IN  THE  -06  TECHNICAL  ORDERS  FOR  THE  VARIOUS  AIR  FORCE 

s  *  WEAPON  SYSTEMS.  SINCE  NEITHER  OF  THE  TWO  TARGET  COMPUTER 

*  *  SYSTEMS  ( CDC  6000  SERIES  +  HONEYWELL  600/6000  SERIES 
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*  *  MACHINES)  HAVE  THIS  SEQUENCE  BUILT  INTO  THEM,  TRANSLATION 

*  *  TABLES  AND  SUPPORT  AREAS  WERE  DESIGNED  SUCH  THAT  THE 

*  *  TARGET  COMPUTER'S  BUILT-IN  COLLATING  SEQUENCE  WOULD  SORT 

*  *  A  MODIFIED  (TRANSLATED)  WUC  PROPERLY. 

* 

*  *  THE  TRANSLATION  TECHNIQUE  IS  AS  FOLLOWS: 

*  *  IT  IS  KNOWN  THAT  EACH  CHARACTER  IN  HONEYWELL  600/6000 

s  *  AND  CDC  6000  SERIES  MACHINES  IS  REPRESENTED  BY  6  BITS, 

*  *  THEREBY  REPRESENTING  A  DECIMAL  VALUE  BETWEEN  ZERO  AND  63. 

*  #  EACH  VALUE  COULD  BE  USED  AS  A  SUBSCRIPT  INTO  A  TABLE  TO 

*  *  ‘'DIRECTLY"  REFER  TO  THE  CONVERSION  CODE  CHARACTER  DESIRED. 

*  *  THE  CONVERSION  OF  A  CHARACTER  INTO  ITS  CORRESPONDING 

*  *  NUMBER  VALUE  (O  TO  63)  IS  DONE  BY  THE  USE  OF  THE  DATA  AREAS 

*  *  ABOVE  NAMED  TRANSL-SS1-CDC  (AND  ITS  REDEFINITION)  ON  THE 

*  *  CDC  COMPUTER  AND  TRANSL-SS2-HW  (AND  ITS  REDEFINITION)  ON 

*  *  THE  HONEYWELL  COMPUTER.  FOR  EXAMPLE,  ON  THE  HONEYWELL 

*  *  COMPUTER,  BY  MOVING  i HE  CHARACTER  TO  BE  CONVERTED  TO 

*  *  TFANSL-SS2-H W-CHAR ,  THE  DATA  NAME  TRANSL-SS2-HW  NOW  CON- 

*  *  TAINS  A  COMPUTATIONAL-!  FORMAT  BINARY  INTEGER  WITH  A  VALUE 

*  *  FROM  ZERO  TO  63  (NOTE  THAT  TRANSL-SS2-HW  IS  INITIALIZED  TO 

*  it  A  VALUE  OF  ZERO  TO  TAKE  CARE  OF  ANY  IDIOSYNCHROCIES  OF  THE 

*  *  COMP-1  FORMAT).  BY  ADDING  1  TO  TRANSL-SS2-HW,  THE  PROGRAM 

it  it  NOW  HAS  A  VALID  SUBSCRIPT  NUMBER  FROM  1  TO  64  WHICH  CAN  BE 

*  it  USED  TO  REFER  TO  A  PARTICULAR  ENTRY  IN  THE  TRANSLATION 

*  *  TABLE  BELOW.  THAT  TRANSLATION  TABLE  HAS  BEEN  BUILT  SUCH 

*  *  THAT  THE  VALUE  IN  TRANSL-SS2-HW  REFERS  TO  THE  PROPER  TABLE 

*  *  ENTRY  FOR  THE  DESIRED  CONVERSION.  AN  IDENTICAL  PROCESS  • 

*  *  OCCURS  ON  THE  CDC  COMPUTERS  USING  THE  VARIABLES 

*  *  TRANSL-8S1 -CDC  AND  TRANSL-SS1-CDC-CHAR.  THE  MEED  FOR  TWO 

*  *  SEPARATE  CONVERSION  SUBSCRIPTS  IS  DICTATED  BY  THE  FACT 

*  *  THAT  THE  WORD  SIZE  ON  THE  CDC  AND  HONEYWELL  MACHINES  IS 

*  *  DIFFERENT. 

* 

*  *  THIS  CONVERSION  TECHNIQUE  ALLOWS  ANY  CHARACTER  TO  BE 

*  *  TRANSLATED  INTO  ANY  OTHER  DESIRED  CHARACTER  BY  TWO  MOVE 

*  *•  STATEMENTS  ANY  ONE  ADD  STATEMENT. 

*  *  HOWEVER,  BY  ALSO  INCLUDING  AN  IF  TEST  AND  AN  EXTRA  MOVE, 

*  *  IT  IS  POSSIBLE  TO  TRANSLATE  ONLY  A  DESIRED  SUBSET  OF 

*  *  CHARACTERS  AND  LEAVE  THE  REST  UNCHANGED.  THIS  IS  WHAT  IS 

*  *  DONE  IN  THE  TRANSLATION  PROCEDURE. 

it 

it 

it  it  the  VARIABLE  NAMED  COMPUTER-ID  (BELOW)  DEFINES  THE  COMPUTER 

*  *  AND  THE  DIRECTION  OF  TRANSLATION  (I.E.  INTO  SORT  SEQUENCE, 

*  *  OR  OUT  OF  SORT  SEQUENCE)  SO  THAT  THE  TRANSLATION  PROCEDURE 

*  *  (SECTION  NAME  IS  TRANSLATE-WUC )  CAN  PROPERLY  MODIFY  WUC'S 

*  *  BOTH  FOR  SORTING  PURPOSES  AND  FOR  RECONVERSION  TO  CLEARTEXT 

*  *  FOR  PRINTING.  TO  SELECT  THE  DESIRED  ATTRIBUTES  OF  THE 

*  *  CONVERSION,  SET  THE  VALUE  OF  COMPUTER- ID  TO  2  TO  CONVERT 

*  *  HONEYWELL  600/6000  STANDARD  COLLATING  SEQUENCE  CLEARTEXT  TO 

*  *  SORT-TEXT,  SET  IT  TO  3  TO  CONVERT  HONEYWELL  SORT-TEXT  TO 

it  ^  ITS  CLEARTEXT,  SET  IT  TO  1  TO  CONVERT  CDC  ASCI  16  COLLATING 

*  *  SEQUENCE  CLEARTEXT  TO  SORT-TEXT,  AND  SET  IT  TO  4  TO  CONVERT 
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ft 

£ 

* 


*  THE  CDC  SORT-TEXT  BACK  TO  ITS  CLEARTEXT 


01 

•ft 

-ft 

COMPUTER- ID 

2. 

ftftftftftftftftftft 

ft  THIS  CODE  IS  RETRIEVED 

BY 

PIC  9(6)  COMP-1  VALUE 

A  $  SELECT A  AGAINST  FILE 

ft 

2$. 

ft  MSME7/C0EP/ POMS /TRANS. 

T2 

01 

ft 

TRANSLAT I ON-TABLES, 
ft  THIS  IS  OCCURRENCE 

NO. 

1 

FOR  CBC/HW  CHARS  :/0 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

2 

PIC  XX XX  VALUE  "====". 

FOR  CBC/HW  CHARS  A/1 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

*1* 

PIC  XX XX  VALUE  "1S-.J". 

FOR  CDC/HW  CHARS  B/2 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

4 

PIC  XXXX  VALUE  "2T$K" . 

FOR  CDC/HW  CHARS  C/3 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

tr 

PIC  XXXX  VALUE  "3UftL" . 

FOR  CDC/HW  CHARS  D/4 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

z, 

PIC  XXXX  VALUE  "4V)M". 

FOR  CDC/HW  CHARS  E/5 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

7 

PIC  XXXX  VALUE  "5W?N". 

FOR  CDC/HW  CHARS  F/6 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

8 

PIC  XXXX  VALUE  n6X'0". 

FOR  CDC/HW  CHARS  0/7 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

9 

PIC  XXXX  VALUE  "7Y+P". 

FOR  CDC/HW  CHARS  H/S 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

10 

PIC  XXXX  VALUE  "8Z/Q". 

FOR  CDC/HW  CHARS  1/9 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

11 

PIC  XXXX  VALUE  "9— R”. 

FOR  CDC/HW  CHARS  J/C 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

12 

PIC  XXXX  VALUE  "A=-S". 

FOR  CDC/HW  CHARS  K/# 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

13 

PIC  XXXX  VALUE  "B==T". 

FOR  CDC/HW  CHARS  L/ ( AT  SIGN) 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

14 

PIC  XXXX  VALUE  "C==U". 

FOR  CDC/HW  CHARS  M/s 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

15 

PIC  XXXX  VALUE  "D==V" . 

FOR  CDC/HW  CHARS  N/> 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

16 

PIC  XXXX  VALUE  "E==W". 

FOR  CDC/HW  CHARS  0/ ( QUEST  MK) 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO- 

17 

PIC  XXXX  VALUE  "F“X". 

FOR  CDC/HW  CHARS  P/ (BLANK) 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

18 

PIC  XXXX  VALUE  "0?  >  Y" . 

FOR  CDC/HW  CHARS  Q/A 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

19 

PIC  XXXX  VALUE  "H==Z". 

FOR  CDC/HW  CHARS  R/B 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

20 

PIC  XXXX  VALUE  ”I==1'*- 
FOR  CDC/HW  CHARS  S/C 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

21 

PIC  XXXX  VALUE  "U== 2". 

FOR  CDC/HW  CHARS  T/D 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO. 

PIC  XXXX  VALUE  ”K==3". 

FOR  CDC/HW  CHARS  U/E 
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ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO,  23 

a- 

03  FILLER 

#  THIS  IS  OCCURRENCE 

NO.  24 

ft- 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  25 

ft- 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  26 

ft- 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  27 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  28 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  29 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  30 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  31 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  32 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO,  33 

X. 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  34 

X. 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  35 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  36 

-Si¬ 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  37 

ft- 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  38 

ft 

03  FILLER 

*  THIS  IS  OCCURRENCE 

NO.  39 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  40 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  41 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  42 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  43 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  44 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  45 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  46 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO.  47 

ft 

03  FILLER 

ft  THIS  IS  OCCURRENCE 

NO-  48 

03  FILLER 

PIC  XX XX  VALUE  "L==4" , 

23  FOP  CDC/HW  CHARS  V/F 
PIC  XX XX  VALUE  "M==5". 

24  FOR  CDC/HW  CHARS  U/G 
PIC  XX XX  VALUE  "N==6,!. 

25  FOR  CDC/HW  CHARS  X/H 
PIC  XXX X  VALUE  "0==7”. 

26  FOR  CDC/HW  CHARS  Y/I 
FIC  XX XX  VALUE  "P^S". 

27  FOR  CDC/HW  CHARS  Z/S< 

PIC  XXXX  VALUE  "Q==9‘'. 

2S  FOR  CDC/HW  CHARS  0/. 

PIC  XXXX  VALUE  "====". 

29  FOR  CDC/HW  CHARS  1/3 
PIC  XXXX  VALUE  "R==A". 

30  FOR  CDC/HW  CHARS  2/ ( 

PIC  XXXX  VALUE  *,3==B". 

31  FOR  CDC/HW  CHARS  3/C 
PIC  XXXX  VALUE  "T==C" . 

32  FOR  CDC/HW  CHARS  4/\ 

PIC  XXXX  VALUE  "U==D" . 

FOR  CDC/HW  CHARS  5/"' 

PIC  XXXX  VALUE  " V==E’* . 

FOR  CDC/HW  CHARS  6/J 
PIC  XXXX  VALUE  "W—F”. 

FOR  CDC/HW  CHARS  7/K 
PIC  XXXX  VALUE  "X— G", 

FOR  CDC/HW  CHARS  S/L 
PIC  XXXX  VALUE  "Y==H" . 

FOR  CDC/HW  CHARS  9/M 
PIC  XXXX  VALUE  "Z==I". 

FOR  CDC/HW  CHARS  +/N 
PIC  XXXX  VALUE  "====". 

FOR  CDC/HW  CHARS  -/O 
PIC  XXXX  VALUE 
FOR  CDC/HW  CHARS  ft/P 
PIC  XXXX  VALUE  “ ====“. 

FOR  CDC/HW  CHARS  ( SLASH >/Q 
PIC  XXXX  VALUE  "====”. 

FOR  CDC/HW  CHARS  (/R 
PIC  XXXX  VALUE  "====". 

FOR  CDC/HW  CHARS  >/- 
PIC  XXXX  VALUE  S,=1S=,!. 

FOR  CDC/HW  CHARS  $/$ 

PIC  XXXX  VALUE  "=£T=" . 

FOR  CDC/HW  CHARS  =  /* 

PIC  XXXX  VALUE  "=31-1=" . 

FOR  CDC/HW  CHARS  (BLANK)/) 
PIC  XXXX  VALUE  "=4v'="  . 

FOR  CDC/HW  CHARS  ,/; 

PIC  XXXX  VALUE  " =5W=" . 

FOR  CDC/HW  CHARS  ./" 

PIC  XXXX  VALUE  "=4X=". 
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■a 

*  THIS  IS  OCCURRENCE 

NO. 

49 

FOR 

CDC/ HW  CHARS  #/+ 

03  FILLER 

PIC 

XXXX  VALUE  "=7Y=" . 

«■ 

*  THIS  IS  OCCURRENCE 

NO. 

50 

FOR 

CDC/HW  CHARS  £/ (SLASH) 

03  FILLER 

PIC 

XXXX  VALUE  "=32=" . 

■s- 

*  THIS  IS  OCCURRENCE 

NO. 

51 

FOR 

CDC/HW  CHARS  3/S 

03  FILLER 

PIC 

XXXX  VALUE 

s 

*  THIS  IS  OCCURRENCE 

NO. 

FOR 

CDC/HW  CHARS  %/T 

03  FILLER 

PIC 

XXXX  VALUE  ,,=*2=“. 

«■ 

*  THIS  IS  OCCURRENCE 

NO. 

53 

FOR 

CDC/HW  CHARS  (QUOTE) /U 

03  FILLER 

PIC 

XXXX  VALUE  ’*=*3  ". 

«• 

*  THIS  IS  OCCURRENCE 

NO. 

54 

FOR 

CDC/HW  CHARS  _/V 

03  FILLER 

PIC 

XXXX  VALUE  "=) 4 

s- 

*  THIS  IS  OCCURRENCE 

NO. 

55 

FOR 

CDC/HW  CHARS  (EXCLAIM) /W 

03  F I LLER 

PIC 

XXXX  VALUE  "=? 5=" . 

s 

*  THIS  IS  OCCURRENCE 

NO. 

5-6 

FOR 

CDC/HW  CHARS  6/X 

03  FILLER 

PIC 

XXXX  VALUE  "=•'6=". 

*■ 

*  THIS  IS  OCCURRENCE 

NO. 

57 

FOR 

CDC/HW  CHARS  ' / Y 

03  FILLER 

PIC 

XXXX  VALUE  ',=4-7=,,. 

s 

*  THIS  IS  OCCURRENCE 

NO. 

58 

FOR 

CDC/HW  CHAPS  (QUEST  NK>/ 

03  FILLER 

PIC 

XXXX  VALUE  "=/8=". 

S' 

*  THIS  IS  OCCURRENCE 

NO. 

59 

FOR 

CDC/HW  CHARS  </_ 

03  FILLER 

PIC 

XXXX  VALUE  !,=99=“. 

s 

*  THIS  IS  OCCURRENCE 

NO. 

60 

for 

CDC/HW  CHARS  >/. 

03  F I LLER 

PIC 

XXXX  VALUE  !,=  =". 

■s 

*•  THIS  IS  OCCURRENCE 

NO. 

61 

FOR 

CDC/HW  CHARS  (AT  SIGN)/*/. 

03  FILLER 

PIC 

XXXX  VALUE  "====!*. 

•if- 

*  THIS  IS  OCCURRENCE 

NO. 

62 

FOR 

CDC/HW  CHARS  \/~ 

03  FILLER 

PIC 

XX XX  VALUE  "====". 

S 

*  THIS  IS  OCCURRENCE 

NO. 

63 

FOR 

CDC/HW  CHARS  'V  (QUOTE) 

03  FILLER 

PIC 

XXXX  VALUE 

«• 

*  THIS  IS  OCCURRENCE 

NO. 

64 

FOR 

CDC/HW  CHARS  ?/ (EXCLAIM) 

03  FILLER 

PIC 

XXXX  VALUE  "==  =,s. 

01 

fLT  REDEFINES  TRANSLATION-TABLES. 

03  TRANS-ENTRY 

OCCURS  64. 

05  TRANS-CBC-2-S0RT 

PIC 

X. 

05  TRANS-KW-2-S0RT 

PIC 

X. 

05  TRANS— SORT -2-HW 

PIC- 

V 

A  * 

05  TRANS-SORT-2- 

-CDC 

PIC 

V 

16580  / 

16590  PROCEDURE  DIVISION. 

16600  BASIC-CONTROL  SECTION. 

16610  BC-START. 

16620  PERFORM  INITIALIZATION. 

16630  PERFORM  SELECTION. 

16640  9  PERFORM  DUMP-SEL-TABLE. 


16650 

STOP 

RUN. 

16660 

■S!* 

16670 

1  6680 

INITIALIZAi ION 

SECTION. 

Ui  Oi’' 
X  W  V 

I -START. 

1 6700 

OPEN 

INPUT 

DIRECTIVES-FILE 

16710 

OUTPU 

T  DIRECTI VE-L I ST— FILE. 

16720 

MOVE 

N— 100 

TO  LIME-CNT, 
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16730  MOVE  SPACE  TO  DIRECTI VE-LIST-REC. 

167 TO  MOVE  SZERO  TO 

16750  DIR— LIST-OPEN 

16760  PIR-A~-END. 

16770  PERFORM  J— ZERO— SOO— CTRS 

16730  VARYING  SOQ-SS  FROM  ONE  BY  ONE 

16790  UNTIL  SOO-SS  >  SOO-MAX. 

16300  DISPLAY  DISPLAY-BANNER-1. 

16310  DISPLAY  DISPLAY-BANNER-2. 

16320  DISPLAY  DISPLAY— BANNER— 1 . 

16330  MOVE  CDEP- VERS I ON  TO  D83— VERS I ON . 


D I SPLAY  D I SPLAY-BANNER-3 . 

DISPLAY  DISPLAY-BANNER-1. 

D I SPLAY  D I SPLAY— BANNER— 4 . 

D I SPLAY  D I SPLAY-BANNER- 1 . 

16330  I -LOOP. 

16890  PERFORM  GET-DIRECT I VE-AMD-ECHO. 

16900  IF  DIR-AT-END  NOT  =  SZERO 

16910  MOVE  BIR-COUNT  TO  BISPLAY-NUM 

16920  MOVE  DISP-NUM-4  TO  B-M-E-NUM 

16930  MOVE  DIRECTIVE-MESSAGE-END  TO  DIR! 

16940  MOVE  TWO  TO  DIR-LIST-CC 

16950  PERFORM  OUTPUT-DIRECTIVE 

16960  MOVE  SZERO  TO  DIR-LIST-CC 

16970  PERFORM  OUTPUT-DIRECTIVE 

16980  CLOSE  DIRECTIVE-LIST-FILE 


16340 
16850 
1 6860 
16870 


16990  MOVE  ONE  TO  D I R-L I  ST-OPEN 

17000  PERFORM  USER-INPUT-SUMMARY-1 

17010  GO  TO  I -EXIT. 


17020  MOVE  ONE  TO  BIR-SS. 

17030  PERFORM  GET-TOKEN. 

1 7040  I -PROCESS-DIRECT I VE . 


17050 
1 7060 
17070 
17030 


IF  TOKEN-1-4  =  BIR-KEY-WORKCENTER 

PERFORM  WCRKCENTER— AFSC-PROCESSGR 
GO  TO  I -LOOP. 

IF  TOKEN- 1—3  =  DIR-KEY-MDS 
PERFORM  MBS-FROCESSOR 
GO  TO  I -LOOP. 


IF  TOKEN-1—4  =  I R— KEY— SORT  I ES 
PERFORM  SORT I E-PROCESSOR 
GO  TO  I -LOOP. 


1 7  i  40 
17150 
17160 
17170 
17130 
17190 
17200 
17210 
17220 
17230 
17240 


IF  TOKEN- 1-4  =  DIR-KEY-FLYIN6-HR3 
PERFORM  FLY I NG-HRS-PROCESSOR 
GO  TO  I -LOOP. 

IF  TOKEN- 1—4  =  D I R— KEY— LABOR-CATEGORY 
PERFORM  LABOR-CATEGORY-PROCESSOR 
GO  TO  I -LOOP. 

IF  TOKEN— 1—4  —  DIR— KEY— ASSIGNMENT— COEm 
PERFORM  ASS I GNMENT-CODE— PROCESSOR 
GO  TO  I -LOOP. 

IF  TOKEN- 1-4  =  DIR-KEY-HAJOR-COMHAND 
PERFORM  MAJOR-COMMAND-PROCESSOR 
GO  TO  I -LOOP. 


FIGURE  G-i.  JGQ5A/CDEP/CSTAR/P2 . C 
(UBCOMFILED  VERSION  COST'D) 


17260 

IF 

TOKEN- 1-4  =  DIR-KEY-TYPE-MAINT 

1  7270 

PERFORM  TYPE-MA I NT -PROCESSOR 

17280 

GO  TO  I -LOOP. 

1 7290 

IF 

TOKEN- 1-4  =  D I R-KEY-3-D I 0 I T-WUC 

17300 

PERFORM  3  -D I GI T-WUC— PROCESSOR 

17310 

GO  TO  I -LOOP. 

17320 

IF 

TOKEN- 1-4  «  DIR-KEY-QUEEN-BEE 

17330 

PERFORM  QUEEN-BEE-PROCESSOR 

17340 

GO  TO  I -LOOP. 

1 7350 

IF 

TOKEN- 1-4  =  D I R— KEY-COMPONENT— POS 

17360 

PERFORM  COMPONENT-POS-PROCESSOR 

17370 

00  TO  I -LOOP. 

17380 

IF 

TOKEN- 1-4  =  D I R-KEY-REPGRT 

1 7390 

PERFORM  REPORT-PROCESSOR 

17400 

IF  DIR-AT-END  NOT  ■=  SZERO 

17410 

GO  TO  I -LOOP 

17420 

ELSE 

17430 

GO  TO  I -PROCESS-DIRECTIVE. 

17440 

I -UNKNOWN— D I RECTI VE . 

17450 

PERFORM  D I RECT I VE-WARN I NG-KE YWQRD-ERR 

17460 

GO 

TO  I -LOOP. 

17470 

I -ZERO- 

300-CTRS. 

17480 

MO  V 

C  SZERO  TO 

1 7490 

SCO— COUNT  ( S00-S3 ) 

17500 

SOG-MANHRS  ( 300-SS ) . 

17510 

I -EXIT. 

17520 

EXJ 

T 

I  « 

1 7530 

■K- 

1 7540  * 

17550  BUMP-3EL-TAB-SS  SECTION. 

17560  * 

17570  * 

17580  BSTS-ST  ART. 

17590  MOVE  SEL-T AB-L I NK2  (SEL-TAB-SS)  TO  SEL-TAB-SS 

17600  BSTS-EX IT. 

17610  EXIT. 

17620  * 

17630  * 

17640  DUMMY  SECTION. 

17650  ^ 

17660  * 

17670  D-EXIT. 

17680  EXIT. 

17690  * 

17700  * 

17710  INSERT- I M-SEL-TABLE  SECTION. 

17720  * 

17730  * 

17740  IIST-START. 

17750  PERFORM  GET-SEL-TAB-SLOT. 

17760  MOVE  TOKEN- 1-6  TO  SEL-T AB-KEY- 1 -6  (SEL-TAB-SS 

17770  MOVE  SEL "TAB-START  TO  SEL-T AB-L I NK2  (SEL-TAB- 

17780  MOVE  SEL-TAB-SS  TO  SEL-T AB-ST ART . 
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1 7790 
17:300 
17810 
1 7820 
17830 
1 7840 
1 7850 
1 7860 
1 787  0 
17880 
1 7890 
1 7900 
17910 
1 7920 
17930 
17940 
17950 
1 7960 
1 7970 
17980 
1 7990 
18000 
18010 
18020 
1 8030 
18040 
18050 
18060 
18070 
1 8080 
18090 
18100 
18110 
18120 
18130 
18140 
183  50 
18160 
181 70 
18180 
18190 
1 8200 
18210 
18220 
18230 
1 8240 
18250 
1 8260 
18270 
1 8280 
1 8290 
1 8300 
18  310 


IIST-EXIT. 

EXIT. 


GET-SEL-TAB-SlOT  SECTION. 


GSTS-START. 

IF  SEL-TAB-AVAIL  >  SEL-TAB-MAX 
GO  TO  GSTS-ERR, 

MOVE  EL-TAB-AVAIL  TO  SEL-TAB-SS. 

MOVE  -PACE  TO  SEL-TAB-KEY  (SEL-TAB-SS). 

ADD  ONE  TO  3EL-TAB- AV A I L . 

GO  TO  GST3-EX IT. 

GSTS-ERR. 

MOVE  TWO  TO  DIR— LIST-CC. 

MOVE  DIRECT I VE-WARN I NO-STARS  TO  DIRECTIVE-OUT. 
PERFORM  GSTS-OUT. 

MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  GSTS-OUT. 

MOVE  D I RECTI VE-FAT AL-3EL-T AB-2MANY  TO  DIRECTIVE-OUT. 
PERFORM  GSTS-OUT. 

MOVE  DIRECT I VE-WARN I NO-STARS  TO  DIRECTIVE-OUT. 
PERFORM  GSTS-OUT  TWO  TIMES. 

IF  D I R-L I ST-OPEN  =  SZERO 

MOVE  SZERO  TO  D1R-LIST-CC 
PERFORM  GUTPUT-D I RECT I VE 
CLOSE  D I RECT I VE-L I ST-F I LE . 

STOP  RUN. 

GSTS-OUT. 

IF  D I R-L I ST-OPEN  NOT  =  SZERO 
DISPLAY  DIRECTIVE-OUT 
ELSE 

PERFORM  OUTPUT-D I RECT I VE . 

GSTS-EX IT. 

EXIT. 

# 

* 

WORKCTR- SEARCH  SECT I ON . 

* 

* 

WS-START. 

MOVE  SEL-TAB-START  TO  SEl-TAB-SS. 

WS-LOOP-1. 

IF  SEL-TAB-START  =  SZERO 
GO  TO  WS-SET -LOOP-2. 

GO  TO 

WS-4LEVEL-1 

WS-5LEVEL-1 

DEPENDING  ON  WCTR-SPLIT. 

WS-3LEVEL- 1 . 

IF  TEST-WCTR- 1 -3  <  SEL-TAB-KEY- 1-3  < SEL -TAB-START ) 
GO  TO  WS-SET-LOOP-2. 
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i 


18320  GO  TO  WS-BUMP-1. 

18330  WS-4LEVEL-1. 

18340  IF  TEST-WCTR-1-4  <  SEL-T AB-KE Y- 1 -4  ( SEL-TAB-START ) 

18350  GO  TO  WS— SET-LOOP-2. 

18360  GO  TO  WS-BUMP-1. 

18370  WS-5LEVEL-1 . 

18380  ■  IF  TEST-WCTR-1-5  <  SEL-TAB-KEY- 1 -5  (SEL-TAB-START) 

18390  GO  TO  WS— SET-LOOP— 2. 

18400  GO  TO  WS-BUMP-1. 

18410  WS-BUMP-1. 

18420  MOVE  SEL-TAB-START  TO  SEL-TAB-SS. 

18430  MOVE  SEL-T AB-L I NK2  (SEL-TAB-START)  TO  SEL-TAB-START. 

18440  GO  TO  WS— LOOP-1 . 

18450  WS— SET-LOOP'— 2 . 

18460  MOVE  SEL-TAB-SS  TO  SEL-TAB-SS1. 

18470  IF  SEL-TAB-START  =  SEL-TAB-SS 

18480  *  **  THIS  TEST  MEANS  THAT  TEST-WCTR  IS  ;MAL  .ER  THAN 

18490  *  **  THE  1ST  TABLE  ENTRY  KEY  (OR  THAT  "t  HE  TABLE  IS  EMPTY) 

13500  GO  TO  WS-RESET. 

18510  MOVE  SEL-T  AB-L I NK 1  (SEL-TAB-SS)  TO  SEL-TAB-SS. 

18520  WS— LOOP— 2. 

18530  IF  SEL-TAB-SS  =  SZERO 

18540  GO  TO  WS-RESET. 

18550  GO  TO 

18560  WS-4LEVEL-2 

18570  WS-5LEVEL-2 

18580  DEPENDING  ON  WC-TR-SPLIT. 

18590  WS-3LEVEL-2. 

18600  IF  TEST-WCTR- 1-3  =  SEL-TAB-KEY- 1-3  (SEL-TAB-SS) 

18610  GO  TO  WS-FOUNB. 

18620  GO  TO  WS-BUMP-2. 

18630  WS-4LEVEL-2. 

18640  IF  TEST-WCTR-1-4  =  SEL-TAB-KEY- 1-4  (SEL-TAB-SS) 

18650  GO  TO  US-FOUND. 

18660  GO  TO  WS-BUMP-2. 

18670  WS-5LEVEL-2. 

18680  IF  TEST-WCTR-1-5  =  SEL-TAB-KEY- 1-5  (SEL-TAB-SS) 

18690  GO  TO  US-FOUND. 

18700  GO  TO  WS-BUMP-2. 

18710  WS-BUMP-2. 

18720  MOVE  SEL-T  AB-L I NK2  (SEL-TAB-SS)  TO  SEL-TAB-SS. 

18730  GO  TO  WS-L00P-2. 

18740  WS-RESET. 

18750  GO  TO 

13760  WS-4LEVEL-3 

18770  WS-5LEVEL-3 

18780  DEPENDING  ON  WCTR-SPLIT. 

18790  WS-3LEVEL-3. 

18800  GO  TO  WS-NOT-FOIJND. 

18810  WS— 4LEVEL-3. 

18820  IF  TES7-WCTR-4  =  HIGH-VALUE 

18830  GO  TO  WS-NOT-FOUND. 

18840  MOVE  HIGH-VALUE  TO  TEST-WCTR-4. 
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18850 
18860 
18870 
1 8880 
1 8890 
18900 
1 89 1 0 
18920 
18930 
18940 
13950 
1 8960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 
1 9040 
19050 
1 9060 
1 9070 
1 9080 
1 9090 
19100 
19110 
19120 
19130 
19140 
19150 
19160 
19170 
1918C 
19190 
1 9200 
19210 
1 9220 
19230 
19240 
1 9250 
19260 
19270 
19280 
1 9290 
19300 
19310 
1 9320 
1 9330 
19340 
19350 
19360 
19370 


MOVE  SEL-TAB-SS1  TO  SEL-T AB-ST ART . 

GO  TO  WS-START, 

WS-5LEVEL-3 . 

IF  TEST-WCTR-5  =  HIGH-VALUE 
GO  TO  WS-4LE VEL-3 . 

MOVE  HIGH-VALUE  TO  TEST-WCTR-5. 

MOVE  3EL-TAB-SS1  TO  SEL-T AB-ST ART. 

GO  TO  WS-START. 

US-FOUND. 

MOVE  SEL-TAB-SS  TO  SEL-TAB-START. 

00  TO  WS-EXIT. 

WS-NOT-FOUND. 

MOVE  SZERO  TO  SEL-TAB-START. 

GO  TO  WS-EXIT. 

WS-EXIT. 

EXIT. 

* 

#■ 

OUTPUT -SOI  SECTION. 

*  THE  APPARENT  INEFFICIENCIES  RESULTING  FROM  FAKING  AN 

*  "AFTER  ADVANCING"  BY  USE  OF  "BEFORE  ADVANCING" 

*  ACKNOWLEDGES  THE  FACT  THAT  HONEYWELL  GCGS-BASED  COBOL 

*  GENERATES  2  OUTPUT  LINES  IN  AN  "AFTER  ADVANCING"  MODE 

*  BECAUSE  THE  GCOS  SYSTEM  OUTPUT  ROUTINES  ALWAYS  SLEW 

*  BEFORE  PRINTING.  THESE  2  PRINTLINES  BOTH  GET  COUNTED 

*  AGAINST  THE  .JOB  PRINTLINE  LIMIT.  THIS  METHOD  SHOULDN'T 

*  CAUSE  MUCH  EXTRA  GRIEF  ON  CBC  CYBER  MACHINES. 

* 

OS 1 -START. 

IF  (LINE-CNT  +  DIR-SUMMARY-CC)  >  MAX-LINES-PER-PAGE 
WRITE  SOI— REC  BEFORE  ADVANCING  TOP 
MOVE  SPACE  TO  SOI -REC 
WRITE  SOI -REC  BEFORE  ADVANCING  THREE 
MOVE  COEP-VERS I ON  TO  S01-HEAD0-VERSI0N 
MOVE  SOI -HEADER-0  TO  SOI -REC 
WRITE  SOI -REC  BEFORE  ADVANCING  ONE 
ADD  ONE  PAGE-CNT  GIVING  PAGE-CNT  S01-H-PAGE-CNT 
MOVE  SOI -HEADER  TO  SOI -REC 
WRITE  SOI -REC  BEFORE  ADVANCING  ONE 
MOVE  REPORT-GROUP-TITLE  TO  301-HEAD-2-TITLE 
MOVE  SOI -HEADER-2  TO  SOI -REC 
WRITE  SOI -REC  BEFORE  ADVANCING  TWO 
MOVE  SEVEN  TO  LINE-CNT 
ADD  THREE  TO  DIR-SUMMARY-COUNT 
ELSE 

WRITE  SOI -REC  BEFORE  ADVANCING  DIR-SUMMARY-CC 
ADD  DIR-SUMMARY-CC  TO  LINE-CNT. 

MOVE  DIRECTIVE-SUMMARY-OUT  TO  SOI -REC. 

ADD  ONE  TO  DIR-SUMMARY-COUNT. 

0S1-EXIT. 

EXIT. 


FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT'D) 


G-42 


19330 

1 9390 

1 9400 

19410 

1 9420 

19430 

19440 

19450 

19460 

19470 

19480 

1 9490 

19500 

19510 

19520 

19530 

19540 

1 9550 

19560 

19570 

19580 

19590 

19600 

1 96 1 0 

19620 

19630 

19640 

19650 

19660 

1 9670 

19680 

1 9690 

19700 

19710 

19720 

19730 

19740 

1 9750 

19760 

19770 

19780 

1 9790 

1 9800 

19810 

1 9820 

1 9830 

19840 

1 9850 

1 9860 

19870 

1 9880 

19890 

1 9900 


REPORT-PROCESSOR  SECT I ON . 


RP-START. 

IF  DIR-AT-END  NOT  =  SZERO 

IF  ABD6DA-AT-END  NOT  =  SZERO 
PERFORM  REPORT-SUMMAR I Z ER¬ 
GO  TO  RF'-EXIT. 

PERFORM  GET-TOKEN. 

IF  TOKEN- 1-4  =  DIR-KEY-TITLE 
GO  TO  RP-TITLE-PROC. 

IF  TDK -SIZE  NOT  =  TWO 

PERFORM  D I RECT I VE-TOKEN-S I ZE-ERR2 
GO  TO  RP-READ-AND-LEAVE. 

PERFORM  DUMMY 

VARYING  RPT-ID-SS  FROM  RPT- ID-MAX  BY  MIN-ONE 
UNTIL  RPT-ID-SS  -  SZERO 

OR  RPT- ID  (RPT-ID-SS)  =  TOKEN- 1-2. 

IF  RPT-ID-SS  =  SZERO 

*  ***#DISPLAY  "TOKEN-"  TOKEN 

PERFORM  D I RECT I VE-WARN I NG-KEYWORD-ERR 
GO  TO  RP-READ-AND-LEAVE. 

GO  TO 

RP-SELECT I ON-REPORT-PROC 
RP-SELECT I ON-REPORT-PROC 
RF-COMB I NAT I ON-REPORT-PROC 
RP-COMB I NAT I ON-REPORT-PROC 
RP-COMB I NAT I ON-REPORT-PROC 

DEPEND I NG  ON  RPT- I D-REPORT-CLASS  ( RPT- I D-SS ) . 

GO  TO  RP-READ-AND-LEAVE. 

RP-READ-AND-LEAVE . 

PERFORM  GET-D I RECT I VE-AND-ECHO . 

MOVE  ONE  TO  DIR-SS. 

PERFORM  GET-TOKEN. 

GO  TO  RP-EXIT. 

RP-TITLE-P'ROC. 

MOVE  DIR-NAME-MAX  TO  DIR-NAME-MAX-HOLD. 

MOVE  DIR-TITLE-MAX  TO  DIR-NAME-MAX. 

MOVE  ONE  TO  DIR-NAME-SW. 

PERFORM  GET-TOKEN. 

MOVE  TOKEN  TO  REPORT-GROUP-TITLE. 

MOVE  SZERO  TO  DIR-NAME-SW. 

MOVE  DIR-NAME-MAX-HOLD  TO  DIR-NAME-MAX. 

GO  TO-  RP-READ-AND-LEAVE. 

RP-SELECT I ON-REPORT-PROC. 

PERFORM  GET-TOKEN . 

*  **  RPT- ID-PRINT-CLASS  HAS  BEEN  INITIALIZED  TO  "GENERATE1 
IF  TOK-SIZE  =  SZERO 

GO  TO  RP-READ-AND-LEAVE. 

IF  TOKEN- 1-4  NOT  =  DIR-KEY-SUPPRESS 

PERFORM  D I RECT I VE-WARN I NG-KEYWORD-ERR 
GO  TO  RP-READ-AND-LEAVE. 

FIGURE  G-l.  JG0f»A/CDBP/CSTAR/P2 .  C 
(UNCOMPILED  VERSION  CONT*D) 


G-43 


19910 
1  ?929 
19930 
19940 
1 9950 
1 9960 
19970 
19930 
1 9990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20030 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20  ISO 
20190 
20200 
202 1 0 
20220 
20230 
20240 
20250 
20260 
20270 
20230 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 
20370 
20380 
20390 
20400 
20410 
20420 


PERFORM  GET-TOKEN. 

IF  TOKEN- 1-4  =  DIR-KEY-REFORT 

MOVE  TWO  TO  RPT- ID-PRINT-CLASS  (RPT-ID-SS) 

GO  TO  RP-READ-AND-LEAVE. 

GO  TO 

RF— SELECT I ON-ERR 
RF'-CHECK-DET  A I L-SUPPRESS 

DEPENDING  ON  RPT- ID-REPORT-CLASS  <  RPT-  J. D-SS ) . 
RP-CHECK-DETA I L-SUPPRESS . 

IF  TOKEN- 1-4  =  D I R-KE Y-DET AIL 

MOVE  ONE  TO  RPT- ID-PRINT-CLASS  < RPT- I D-SS) 

GO  TO  RP-READ-AND-LEAVE. 

RF'-SELECT  I  ON-ERR . 

PERFORM  D I REOT I VE-WARN I NG-KE YWORD-ERR . 

GO  70  RP-READ-AND-LEAVE. 

RP— COMB I NAT I ON-REPORT-PROC . 

IF  <  RPT— ID-CNT  (RPT- 1  D-SS)  >'  SZERO 

AND  RPT- ID-REPORT-CLASS  (RPT- I D-SS)  NOT  =  THREE) 

OR  RPT- ID-CNT  (RPT-ID-SS)  >  ONE 

*  THESE  CONDITIONS  DEFINE  THE  NUMBER  OF  REPORTS  ALLOWED 

*  FOR  EACH  REPORT  CLASS  (CLASSES  1,2, 4, 5  CAN  ONLY  HAVE 

*  ONE  REPORT  EACH,  CLASS  3  CAN  HAVE  TWO  REPORTS) 

PERFORM  D I RECT I VE-2MAN Y-ERR 

GO  TO  RP-READ-AND-LEAVE. 

IF  (RPT-ID-SS  =  RPT-I0-C0-S3  OR  RPT- I D-C3-SS ) . 

AND  DIR-AT-END  =  SZERO 

*  THESE  CONDITIONS  BEING  TRUE  WOULD  INDICATE 

*  DIRECTIVE  IS  BEING  PROCESSED  FOR  A  SPECIAL 
OR  LRU-OFF-EQU I PMENT  REPORT.  THESE  ARE  NOT 


•» 

X 


A  USER 
INSPECTION 
ALLOWED  AT 


THIS  TIME  SINCE  THEY  ARE  BEING  GENERATED  INTERNALLY 
AS  THE  RESULT  OF  OTHER  PROCESSING. 

PERFORM  D I RECT i VE-WARN I NG-KE' YWORD-ERR 
GO  TO  RP-READ-AND-LEAVE. 

RP-C4-RPT-L0QP. 

PERFORM  GET-SEL-TAB-SLOT. 

IF  TOKEN- 1-2  =  LRU— OFF-EQU I P- I D 

THIS  CHECK  IS  NEEDED  INSTEAD  OF  A  CHECK  AGAINST 

*  THE  RPT-ID-SS  FOR  THE  LRU— OFF— EQUIP  REPORT  BECAUSE 

«  THIS  REPORT  DIRECTIVE  IS  GENERATED  DURING  SRD 

*  PROCESSING  AS;  THE  RESULT  OF  A  USER  L> I FlECT I VE  FOR  AN 

SRU— OFF-EQU  IP  REPORT  AND  IT  WAS;  NECESSARY  TO  GET 

*  IT  THRU  THE  SCREEN  IN  THE  PREVIOUS  CONDITIONAL  STATE¬ 
'S  MENT. 

MOVE  SEL-T AB-L I NK 1  (RPT-START)  TO 
SEL-TAB-L I NK 1  ( SEL-T AB-SS ) 

MOVE  RPT- I D-C3-SS  TO  RPT-ID-SS 
ELSE 

MOVE  SZERO  TO  SEL-TAB-L I NK1  ( SEL-T AB-SS ) . 

MOVE  RPT- ID-REPORT-CLASS  (RPT-ID-SS)  TO 
SEL-TAB-KEY- 1 -NUM  ( SEL-TAB-SS ) . 

MOVE  TOKEN— 2  TO  SEL— T AB— KEY— S’-  (SEL— TAB— 'SS  * . 

ADD  ONE  RPT- ID-CNT  (RPT-ID-SS)  GIVING 


FIGURE  G-l.  JG05A/CDEF/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT'D) 


G-44 


20430 
20440 
20450 
20460 
20470 
204S0 
20490 
20500 
205 1 0 
20520 
20530 
20540 
20550 
20560 
20570 
205S0 
20590 
20600 
20610 
20620 
20630 
20640 
20650 
20660 
20670 
20680 


RPT-ID-CiMT  (RPT-ID-SS) 

8EL-T AB-KE Y-4-NUM  <  SEL-TAB-SS > . 

MOVE  RPT-3TART  TO  SEL-TAB-L I NK2  (SEL-TAB-SS). 

MOVE  SEL-TAB-SS  TO 
SEL-TAB-SS2 
RPT-START. 

IF  ABD6DA-AT-END  =  SZERO 
GO  TO  RP-EXIT. 

PERFORM  GET-D I RECT I VE- AND-ECHO . 

MOVE  ONE  TO  DIR-3S. 

PERFORM  GET-TOKEN. 

IF  TOKEN- 1-3  =  D I R-KEY-SRD 
PERFORM  SRD— PROCESSOR 
IF  BIR-STACK-SS  =  SZERO 
GO  TO  RP-EXIT 
ELSE 

MOVE  DIRECTIVE  TO  TOKEN- 1-2 
GO  TO  RP-C4-RPT-L00P. 

GO  TO  RP— SRD— ERROR. 

RF-SRD-ERROR. 

MOVE  D I RECT I VE— WARN I NG-NO-SRB  TO  DIRECTIVE-OUT. 

MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-D I RECT I VE . 

RP-EXIT. 

EXIT. 

•s- 


20690  * 


20700 

REPGRT-SUMMAR I ZER  SECT I ON . 

20710 

■£ 

20720 

* 

20730 

R3-3TART. 

20740 

MOVE  SPACE  TO  DIRECTIVE. 

20750 

MOVE  ONE  TO  DIR-SS. 

20760 

MOVE  COMMA  TO  DIR-SPACER. 

20770 

MOVE  SRD- START  TO  SEL-TAB-SS. 

20780 

OPEN  OUTPUT 

20790 

SOI -INDEX-FILE 

20800 

3RB-WDC-RPT- 1 NDEX -F I LE . 

208 1 0 

MOVE  REPORT— GROUP— TITLE  TO  D— S— SEL— 3- 

TITLE- 

20320 

MOVE  DIRECTIVE-SUMMARY-SELECT -3  TO  DIRECT IV 

20830 

MOVE  TWO  TO  DIR-SUMMARY-CC. 

20340 

PERFORM  OUTPUT— SOI . 

20850 

PERFORM  OUTPUT —SO 1  —  I NDEX . 

20860 

MOVE  SPACE  TO 

20370 

D-S-SEL-3-T ITLE-i 

20880 

D-S-SEL-3-T I TlE— 2 . 

20890 

RS-ALL-SRDS-LOOP. 

20900 

IF  SEL-TAB-SS  =  SZERO 

20910 

MOVE  DIRECTIVE  TO  D-S-SEL-5-SRDS 

20920 

GO  TO  RS-SELECT I QN-RPT-SUMMARY . 

20930 

MOVE  SEL-TAB-KEY-1-3  (SEL-TAB-SS)  TO 

TOKEN. 

20940 

PERFORM  PUT-TOKEN. 

20950 

PERFORM  BUMF'-SEL-T AB-SS . 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2 . C 
(UNCOMPILED  VERSION  CONT’D) 


G— 45 


>M  111 


20960  GO  TO  RS-ALL-SRDS-LOGP. 

20970  RS-SELECT I QN-RFT-SUMMARY  - 


209S0 
20990 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
2 1 080 
21090 
21 100 
21110 
21120 
21130 
21140 
21150 
21 160 
21170 
21180 
21 190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21230 
2 1 290 
21300 
21310 


21340 
21350 
2 1 360 
21370 
21330 
21390 
2 1 400 
21410 
21420 
21430 
21440 
21450 
21460 
21470 
21430 


RS 


RS 


4r 


PERFORM  SELECT I ON-REPORT-SUMMAR I ZER 
VARYING  RPT-ID-SS  FROM  ONE  BY  ONE 
UNTIL  RPT- ID-REPORT-CLASS  (RPT-ID-SS)  >  TWO. 

IF  (LINE-CNT  +  THREE)  >  MAX-L I NES-PER-PAGE 
MOVE  N-100  TO  LINE-CNT. 

MOVE  D I RECT I VE-SUMMARY-SELECT-4  TO  D I RECT I VE-3UMM ARY-GUT 
MOVE  TWO  TO  D I R-SUMMAR Y-CC . 

PERFORM  OUTPUT-SO 1 . 

PERFORM  OUTPUT-SO 1 - 1 NDE  X . 

MOVE  ONE  TO  DIR-SUMMARY-CC. 

MOVE  D I RECT I VE-SUMMARY— SELECT-5  TO  D I REC T I VE-SUMMAR Y-OUT 
PERFORM  OUTPUT-SO 1 . 


PERFORM  OUTPUT-SO 1 - I NDEX. 

COMB I -SUMMARY. 

MOVE  RPT— START  TO  RPT-SS. 

MOVE  D I RECT I VE-SUMMARY-SELECT-6  TO  D I RECT 1 VE-SUMMAR Y-OUT 
MOVE  THREE  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT-SO 1. 

PERFORM  OUTPUT-SO 1 - 1 NDE X . 

RPT— LOOP. 

IF  RPT-SS  =  SZERO 
CLOSE 

SOI- INDEX-FILE 
SRD-WDC-RPT- I NDEX-F I LE 
GO  TO  RS-EXIT. 

*  BUILD  THE  REPORT  NAME  DETAIL  FOR  CURRENT  COMBI  REPORT 
MOVE  SEL-TAB-KEY-3  (RPT-SS)  TO  D-S-SEL-7-RPT-.iD-l . 

MOVE  SEL-T AB-KE Y-4  (RPT-SS)  TO  D-S-SEL-7-RFT-ID-2. 

MOVE  DIRECTIVE-SUMMARY-SELECT-7  TO 
D I RECT I VE-SUMMAR Y-OUT . 

MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT-SO 1. 

PERFORM  OUTPUT-SO 1 - I NDEX . 

---  BUILD  THE  WBC  NAME  +  CODE  DETAILS  FOR  CURRENT  COMBI  RF 
MOVE  SPACE  TO  DIRECTIVE. 

IF  SEL-T AB-L I NK 1  (RPT-SS)  =  SZERO 
IF  SEL-TAB-KEY-3  (RPT-SS)  NOT  = 

RPT- I D-2  ( RPT- I D-C0-3S ) 

*  DIRECTIVE  ALREADY  BLANK 
PERFORM  STACK-DIRECTIVE 

MOVE  DIRECTIVE— SUMMARY— N0-WE<C3  TO  DIRECTIVE 
PERFORM  STACK-D I RECT I VE 
GO  TO  RS-S'T ART-SRD-!‘*ET AIL 
ELSE 

MOVE  WDC— NAME— CO— RPT  TO  D— S— SEL— 9— WDC— NAME 
MOVE  WDC— NAME— CO— CODE  TO  D— S— SEL- 10— WDC— CuuES 
MOVE  DIRECTIVE— SUMMARY— SELECT— 10  TO  DIRECTIVE 
PERFORM  STACK-D I RECT I VE 

MOVE  £i  I  RECT  I  VE— SUMMARY— SELECT— 9  TO  DIRECTIVE 
PERFORM  STACK-D I RECT I VE 
GO  TO  RS— START— SRD— DETAIL. 

FIGURE  G-l.  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT'D) 


G-46 


21490 
21500 
21510 
21520 
2 1 o30 
21540 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
21640 
21650 
2 1 660 
21670 
21630 
21690 
21700 
21710 
21720 
21730 
21740 
21750 
21760 
21770 
21730 
21790 
21800 
21810 
21820 
21830 
21840 
21850 
21860 
21870 
21880 
23  890 
2 1 900 
21910 
21920 
21930 
21940 
21950 
21960 
21970 
21980 
21990 
22000 
22010 


MOVE  SEL-TAB-LINK1  (RPT-SS)  TO  WDC-SS. 

MOVE  SEL-TAB-LIMK1  (WDC-SS)  TO  WDC-N AME-S'S * 

MOVE  WDC-NAME  < WDC-NAME-SS )  TO  D-S-SEL-9-WDC-NAME . 

*  *  DIRECTIVE  ALREADY  BLANK 
■  MOVE  COMMA  TO  DIR-SPACER. 

MOVE  ONE  TO  DIR-SS. 

RS-WDC-DETA  i'L-LOOP . 

IF  WDC-SS  =  3 ZERO 

MOVE  DIRECTIVE  TO  D-S-SEL- 1 O-WDC-CODES 
MOVE  D I REC-T I VE-SUMMARY— SELECT- 1 0  TO  DIRECTIVE 
PERFORM  STACK-D I RECT I VE 

MOVE  DIRECTIVE-SUMMARY-SELECT-9  TO  DIRECTIVE 
PERFORM  STACK-D I RECT I VE 
00  TO  RS-ST ART-SRD-DET AIL. 

MOVE  SEL-T AB-KEY- 1  (WDC-SS)  TO  TOKEN. 

PERFORM  PUT- TOKEN. 

MOVE  SEL-TAB-LINK2  (WDC-SS)  TO  WDC-SS. 

GO  TO  RS-WDC-DETA I L-LOOP. 

RS-ST  ART-SRD-DET  A I L. 

*  *  BUILD  THE  SRD  DETAIL  FOR  CURRENT  COMBI  REPORT 
MOVE  SRD-ST ART  TO  SRD-SS. 

MOVE  SZERO  TO  SEL-T AB-CNT. 

MOVE  SPACE  TO  DIRECTIVE. 

MOVE  COMMA  TO  DIR-SPACER. 

MOVE  ONE  TO  DIR-SS. 

RS-SRD-DETA IL-LOOP . 

IF  SRD-SS  =  SZERO 

GO  TO  RS-OUTPUT-COMB I -DET AILS. 

MOVE  SEL-T AB-L I NK 1  (SRD-SS)  fO  SEL-TAB-SS. 

*  *  DETERMINE  IF  CURRENT  SRD  APPEARS  ON  CURRENT  COMBI  RPT 
RS'-SRD-RPT-LOOP . 

IF  SEL-TAB-SS  =  SZERO 

MOVE  SEL-T AB-L I NK2  (SRD-SS)  TO  SRD-SS 
GO  TO  RS-SRD-DETA I L-LOOP. 

IF  SEL-T  AB-L I NK 1  ( SEL-TAB-SS >  NOT  -  RPT-SS 

MOVE  SEL-T  AB-L I NK2  (SEL-TAB-SS)  TO  SEL-TAB-SS 
GO  TO  RS-SRD-RPT-LOOP. 

*  *  CURRENT  SRC*  DOES'  APPEAR  ON  CURRENT  COMBI  REPORT? 

-s-  #  ENTER  IT  ONTO  SRD  DETAIL 

ADD  ONE  TO  SEL-T AB-CNT. 

MOVE  SEL-T  AB-KEY- 1 -3  (SRD-SS)  TO  TOKEN. 

PERFORM  PUT-TOKEN . 

*  •*  BUILD+OUTPUT  THE  SRD— WDC— RPT— INDEX  FILE  RECORDS  FOR 
•S-  THE  CURRENT  SRD  AND  CURRENT  COMBI  REPORT 

MOVE  SEL-TAB-LINK1  (RPT-SS)  TO  WDC-SS. 

MOVE  TOKEN— 1  TO  S— W— R— I— D— SRD— 1 . 

MOVE  SEL-T AB-KEY-3  (RPT-SS)  TO  S-W-R-I-D-RPT-I D-l . 

MOVE  SEL-T AB-KE Y-4  (RPT-SS)  TO  S-W-R-I-D-RPT-ID-2. 

CO  TO 

PS— S-W-R- 1 NDE  X —ON— ECU I P 
RS— S— w— R— I NDE X -ON— EQU I P 
RS-S-W-R- I NDEX-GFF-EQU I P 
RS-END-OF-TH I S-SRD 

FIGURE  G-I.  JG05A/CPEF/CSTAR/P2.C 
(UNCOMFILED  VERSION  CONI' D) 


G-47 


22020 
22030 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22170 
22180 
22190 
22200 
222 1 0 
22220 
22230 
22240 
22250 
22260 
22270 
22280 
22290 
22300 
22310 
22320 
22330 
22340 
22350 
22360 
22370 
22380 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 
2247 0 
22480 
22490 
22500 
22510 
22520 
22530 
22540 


DEPENDING  ON  SEL-T AB-KEY-3-NUM  (RPT-SS). 

RS-S-W-R- I NDEX-SPEC- I NSP . 

GO  TO  RS-END-OF— THIS-SRD. 

RS-S-W-R- I NDEX-ON-EQU I P . 

MOVE  OM-EQU IP-FLAG  TO  S-W-R-I-B-6DA-REC-ID. 

GO  TO  RS-S-W-R- I NDE X -WDC-LOOP . 

RS-S-W-R- I NDE X-OFF-EQU I P . 

MOVE  OFF- EuU IP-FLAG  TO  S— W— R— I — D— 3DA— REC— I D • 

GO  TO  RS-S-W-R- INDEX -WDC-LOOP. 

RS-S-W-R- INDEX -WDC-LOOP . 

IF  WDC-SS  =  S2ER0 

GO  TO  RS-END— OF— THIS-SRD. 

MOVE  SEL-TAB-KEY-1  < WDC-SS)  TO  S-W-R-l-D-WDC. 

WRITE  SRD-WDC-RPT- INDEX -REC  FROM  SRD-WDC-RFT- INDEX -DETAIL. 
MOVE  SEL-T A8-L I NK2  (WDC-SS)  TO  WDC-SS. 

GO  TO  RS— S— W— R—  INliE X— WDC— LOOP. 

RS-END-OF-TH I S-SRD . 

MOVE  SEL-T AS-L I NK2  (SRD-SS)  TO  SRD-SS. 

GO  TO  RS-SRD-DET AIL-LC'OP. 

RS-OUTPUT-COMB I -DETAILS . 

*  *  OUTPUT  THE  SRD  +  WDC  DETAIL  LINES  FOR  CURRENT  COMBI  RPT 
MOVE  ONE  TO  DIR-SUMMARY-CC. 

IF  SEL-T AB-CNT  —  SZERO 

MOVE  DIRECT I VE-SUMMARY-NO-SRDS  TO 
D I RECT I VE- SUMMARY-OUT 

ELSE 

MOVE  DIRECTIVE  TO  D-S-SEL-8-SRDS 
MOVE  DIRECTIVE-SUMMARY-SELECT-8  TO 
D I RECT I VE-SUMMARY-GU7 . 

PERFORM  OUTPUT-SO 1 . 

PERFORM  OUTPUT-SO 1 - I NDEX . 

PERFORM  GET-D I RECT I VE-AND-ECHO . 

MOVE  DIRECTIVE  TO  DIRECTIVE-SUMMARY-OUT. 

PERFORM  OUTPUT-SO 1. 

PERFORM  OUTPUT-SO 1 - I NDE X . 

PERFORM  GET— D I RECT I VE— AND— ECHO . 

MOVE  DIRECTIVE  TO  DIRECTIVE-SUMMARY-OUT. 

PERFORM  OUTPUT-SO 1 . 

PERFORM  OUTPUT-SO 1 - I NDEX . 

MOVE  SEL-T AB-L I NK2  (RPT-SS)  TO  RPT-SS. 

GO  TO  RS— RP  T— LOOP . 

RS-EXIT. 

EXIT. 

* 


SELECT I ON— REPORT— SUMMAR I Z ER  SECT I ON 
a- 


«■ 

SRS-START. 

MOVE  LOW-VALUE  TO  SEL— H— KEY. 
MOVE  SPACE  TO  SEL-H-DATA. 

MOVE  RPT- ID-2  (RPT-ID-SS)  TO  SEL 
MOVE  RPT- 1 D-PR J  NT-CLASS  < RPT- 1 D- 


•H-KfcY— RPT. 

S )  TO  SEL— H— OPTION. 


FIGURE  G-I.  J05A/CDEP/GSTAR/P2 .C 
(UNCOMPILED  VERSION  CONT’D) 
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22550 

22560 

22570 

22580 

22590 

22600 

22610 

22620 

22630 

22640 

22650 

22660 

22670 

22680 

22690 

22700 

22710 

22720 

22730 

22740 

22750 

22760 

22770 

22730 

22790 

22800 

22810 

22820 

22830 

22840 

22850 

22860 

22870 

22880 

22890 

22900 

22910 

22920 

22930 

22940 

22950 

22960 

22970 

22980 

22990 

23000 

23010 


MOVE  RPT-ID  (RPT-ID-SS)  TO  D-S-SEL-3-RPT-ID. 

GO  TO 

SF:3— SUPPRESS— DET A I L 
SRS—SUF*PRESS— REPORT 

DEPENDING  ON  RPT- I D-PR I NT-CLASS  (RPT-ID-SS). 

SRS“ OENERATE-RPT . 

MOVE  DIRECT I VE-SUMMARY-RPT-GEN  TO 
D-S-SEL— 3-SELECT I ON-BLOCK- 1 . 

MOVE  SPACE  TO  D-S-SEL-3-SELECT I ON-BLOCK-2 - 
GO  TO  SRS— OUTPUT— SELECTION. 

SRS-SU PPRESS-DET A I L . 

MOVE  DIRECT I VE-SUMMARY-RPT-GEN  TO 
D-S-SEL -3-SELECT I ON-BLOCK- 1 . 

MOVE  DIRECT I VE-SUMMARY-DTL-3UP  TO 
D-S-SEL— 3-SELECT I ON-BLOCK-2 . 

GO  TO  SRS-OUTPUT— SELECT I ON. 

SRS— SUPPRESS— REPORT. 

MOVE  DIRECT I VE-SUMMARY-RPT-SUP  TO 
D-S-SEL-3-SELECT I ON-BLOCK- 1 . 

MOVE  SPACE  TO  D-S-SEL-3-SELECT I ON-BLOCK-2. 

GO  TO  SRS— OUTPUT— SELECT I ON. 

SRS-OUTPUT— SELECT I ON. 

MOVE  DIRECTIVE-SUMMARY-SELECT-3  TO  D I RECTI VE-SUMMARY-0 
MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT— SOI . 

GO  TO 

SRS-SET-T I TLE 
SRS-OUTPUT— SELECT 
SRS— SET-SORT I ES-F-H 
SRS-SET-T I TLE 
SRS-SET-T I TLE 
SRS-SET-T I TLE 
SRS-SET-T I TLE 
SRS-SET-T I TLE 
DEPENDING  ON  RPT-ID-SS. 

SRS-SET— SORT I ES-F-H . 

MOVE  SORTIE-FLY-HRS-CQUNT  TO  SEL-H-SORT IE-F-H-CNT. 

IF  SORTIE— FLY-HRS-SW  =  ONE 

MOVE  SORTIE-TITLE  TO  SEL-H— SORTIE— F—H— TITLE 
ELSE 

MOVE  FLY-HRS-TITLE  TO  SEL-H-SORT I E-F-H-T I TLE. 

GO  TO  SRS— OUTPUT -SELECT . 

SRS-SET-T I TLE. 

MOVE  REPORT-GROUP-TITLE  TO  SEL-H-8RDS. 

GO  TO  SRS— OUTPUT— SELECT . 

SRS—  OUTPUT— SELECT . 

WRITE  SELECTION— RECORD  FROM  SELECTION— HEADER. 


23020  SRS-EXIT. 
23030  EXIT. 
23040  *• 


23050  * 

23060  SRD— PROCESSOR  SECTION. 
2307 0  # 
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23030  * 

23090  SRDP— START- 
23  1 00  GO  TO 

23110  SRDP-EXIT 

23120  SRDP-EXIT 


23130 


SRDP— FOR— ON— EQU I P-RPT 


23140 
23150 
23160 
231  TO¬ 
SS  1  SO 
23120 
23200 
23210 
23220 
23230 
23240 
23250 
23260 
23270 
23230 
23290 
23300 
23310 
23320 
23330 
23340 
23350 
23360 
23370 
23330 
23390 
23400 
23410 
23420 
23430 
23440 
23450 
23460 
23470 
23480 
23490 
23500 
23510 
23520 
23530 
23540 
23550 
23560 
235^0 
23580 
23590 
23600 


SRDP— FOR— OFF— EQU I P— RP7 
SRDP— FOR— SPEC— I NSP— RPT 

DEPENDING  ON  RF'T—  ID— REPORT— CLASS  (  RPT—  I D— SS ) . 

SRDP— FOR— ON— EQU I P-RPT . 

MOVE  DIR-SS  TO  DIR-SS-HOLD. 

MOVE  SPACE  TO  D I  R-h'OLD-SRB-PREF  IX. 

PERFORM  SRD— GN-EQ— CHECK— CONSIST 
UNTIL  DIR-SS  >  DIR— MAX. 

MOVE  DIR-SS-HOLD  TO  DIR-SS. 

00  TO  SRDP— PROCESS— DIRECTIVE. 

SREiP-F  OR-OFF-EQU  3  P-RPT  . 

00  TO  SRDP -PROCESS— D I RECT I VE. 

SRDP— FOR— SPEC- I NSP— RPT. 

*  IF  NO  SPEC— I NSP  RPT  EXISTS?  GO+CREATE  ONE 

*  RPT— ID— SS  FOR  THIS  RPT  CAN  ONLY  EE  SET  DURING  A3D6DA 

*  FILE  PROCESSING 

IF  RPT- I D-CNT  (RPT-ID-SS)  =  SZERO 
GO  TO  SRDP— SET-NEW-CO-RPT. 

*  THE  SELECTION  TABLE  SPECIAL  INSPECTION  REPORT  IS 

*  POINTED  TO  BY  RPT-START  AS  THE  RESULT  OF  A  PRIOR 

*  EXECUTION  OF  SRDP-SET-MEw-CO-RPT 

*  CHECK  TO  SEE  THAT  THE  SRD  IS  NOT  ALREADY  SET  UP  FOR 

*  THE  SPEC- 1 NSP  REPORT — THE  MOST  RECENT  RPT-SRD  LINKAGE 

<•  ENTRY  FOR  THE  SRD  WILL  INDICATE  THE  CONDITION 

*  SRD— SS  HAS  BEEN  SET  DURING  ABDfrDA  FILE  PROCESSING? 

*  AND  HAS  BEEN  DEFINED  IN  THE  SELECTION  TABLE  DURING 

*  THE  DIRECTIVES  PROCESSING  PHASE  OF  THE  PROGRAM 

MOVE  SEL-T AB-L I NK 1  (SRD-SS)  TO  SEL-TAB-SS. 

IF  SEL-T AB-KEY- 1 -MUM  (SEL-TAB-SS)  = 


RPT- ID-REPORT-CLASS  ( RPT-ID-SS > 

GO  TO  SRDP-EXIT. 

*  IGNORE  THE  SPEC- I NSP  SRD  IF  MORE  THAN  THE  MAX  FOR  1 

*  REPORT.  THE  COUNT  IS  INITIALIZED  IN  SRDP— SET— NEW— CO 
IF  RPT-ID-CO-SRD-CNT  <  SRB-MAX 

GO  TO  SRDP-BEG I N-CO— SRD-L INK. 

GO  TO  SRDP-EXIT. 

SRDP-SET-NE W-CO-RPT . 

MOVE  RPT- ID  (RPT-ID-SS)  TO  DIRECTIVE. 


MOVE  ONE  TO  DIR-SS. 

PERFORM  REPORT-PROCESSOR . 

MOVE  SZERO  TO  RPT-ID-CO-SRD-CNT. 

SRDP— BEGIN— CO— SRD— L I NK. 

*  THE  SELECTION  TABLE  INDEX  FOR  SPEC-IN3P  REPORT  IS  ALWAYS 

*  IN  RPT-START  BY  THIS  TIME  \ SINCE  IT  WAS  THE  LAST  ONE 

*  ENTERED  IN  THE  TABLE 

MOVE  RPT-START  TO  SEL-T AB-SS2. 

MOVE  SRD-SS  TO  SEL-TAB-SS3. 
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G-50 


23630 

23620 

23630 

23640 

23650 

23660 

23670 

23680 

23690 

2 
■“j-j 


ADD  ONE  TO  RFT— I D-CO-SRD-CNT . 
PERFORM  SRDP-SET-SRD-RPT-L I NKAGE . 
00  TO  SRDP-EXIT. 

SRDP— PROCESS— D I RECT 1 VE . 

MOVE  SZERO  TO  SEL-T AB-CNT , 

SRDP— PROCESS— D I RECT I VE-LQQP  - 
IF  DIR-SS  >  D I R-M AX- 

GO  TO  SRDP— SET— NEXT— DIRECTIVE, 
PERFORM  GET-TOKEN. 


NOT  =  THREE 


700 

IF  TOK-SIZE 

71 0 

GO  TO  SI 

720 

IF  TOK— SIZE 

730 

PERFORM 

740 

GO  T 0  Si 

750 

ADD  ONE  TO  : 

23760 

23770 

23730 

23790 

23800 

23810 

23820 

23330 

23840 

23350 

23860 

23370 

23880 

23390 

23900 

23910 

23920 

23930 

23940 

23950 

23960 

23970 

23980 

23990 


i  Au-SS ) , 


IF  SEL-T AB-CNT  >  SRD-MAX 

PERFORM  D I RECT I VE— TOKEN— 2MANY-ERR 
GO  TO  SRDP— SET-NEXT— DIRECT I VE . 

MOVE  SRD-START  TO  SEL-TAB-SS. 

PERFORM  BUMP— SEL-T AB-SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN- 1-3  -  SEL-TAB-KEY-1-3 
IF  SEL-TAB-SS  =  SZERO 
ADD  ONE  TO  SRD-CNT 
IF  SRD-CNT  >  SRD-MAX 

SUBTRACT  ONE  FROM  SEL-T AB-CNT 
SUBTRACT  ONE  FROM  SRD-CNT 
PERFORM  D I RECT I VE-T 0KEN-2M AN Y-ERR 
GO  TO  SRBP-SET-NEXT-D I RECT I VE 
ELSE 

MOVE  SRD-START  TO  SEL-TAB-START 

PERFORM  I  NSER'T-  IN-SEL— TABLE 

MOVE  SZERO  TO  SEL-TAB— LINK 1  (SEL-TAB-SS) 

MOVE  SEL-TAB-START  TO  SRD-START. 

MOVE  SEL-TAB-SS  TO  SEL-T AB-S83. 

MOVE  SEL-T AB-L I NK 1  < SEL-TAB-SS)  TO  SEL-TAB-SS- 
PERFORM  BUMP-SEL-TAB-SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  SEL— TAB— LINK!  (SEL— TAB— SS)  —  SEL— TAB— 8S2. 

CONDITION  ABOVE  INC*  I  CATES;  THAT  THE  SRD  HAS 
IN  THE  CURRENT  DIRECTIVE  +  IS  IGNORED 
S  NOT  =  SZERO 


•LINKAGE. 


24000  * 

THE  SECOND 

24010  * 

duplicate: 

24020 

IF  SEL-TAB- 

24030 

SUBTRACT 

24040 

GO  TO  Si 

24050 

PERFORM  SRD 

24060 

GO  TO  SRDP-I 

24070 

SRDP— SET— SRD— RF'T— L I  Ni 

24030 

PERFORM  GET-SEL- 

24090 

MOVE  SEL— TAB— LlNi 

24100 

sel-tab-link; 

24110 

MOVE  SEL-TAB-SS 

24120 

24130 

MOVE  SEL-TAB-KEY 

K1  ( SEL-T AD-SS3 )  TO 
2  ( SEL-T  AB-SS; )  . 

TO  SEL— T AB-L I NK 1  < SEL-TAB-SS^ 
TO  SEL— TAB— LINK 1  CSEL— TAB— Si 
( SEL-T AB-SS2 )  TO 
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24140 
24 1  oO 
24 1 60 
24170 
24  ISO 
24190 
24200 
24210 
24220 
24230 
24240 
24250 
24260 
24270 
242S0 
24290 
24300 
24310 
•24320 
24330 
24340 
24350 
24360 
24370 
243S0 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 
24430 
24490 
24500 


SfcL— T AS-KE  t  <  SEL-T AB— SS  > , 

SRDP— SET— NEXT— D I RECT I VE, 

IF  SEL-TAB-CNT  =  SZER.O 

MOVE  E<IRECTIVE— WARNING— SRE*— EMPTY  TO  DIRECTIVE— OUT 

MOVE  ONE  TO  DIR-LIST-CC 

PERFORM  OUTPUT— D I RECT  2  VE 

PERFORM  GET-D I RECT I VE-AND-ECHO 

MOVE  ONE  TO  £>  I  R— SS 

GO  TO  SRDP— EXIT. 

GO  TO 

SRDP— EXIT 
SRDP-EXIT 

SRDP— SET— NEXT— FROM— ON— EQ 
SRDP— SET— NEXT— FROM— OFF— EQ 
SRDP— EXIT 

DEPENDING  ON  RPT— IE<— REF'ORT— CLASS  » RPT—  ID— SS)  . 
SRDf'-SET-NEX  T-FROM-OFF-EQ . 

MOVE  DIRECTIVE  TO  DIRECTIVE-MOLD. 

THE  P.BOVE  "MOVE”  HANGS  ON  TO  THE  S-RE«  DIRECTIVE  IN  CAS 
CONEi I T I ONS  *  BE T ERM I NEE;  BELOW)  REQUIRE  THAT  1 1  BE  US! 
AGAIN 

PERFORM  GET— D I  RECT  I  v£— ANE<— ECHO  . 

MOVE  ONE  TO  E*  I  R— SS. 

PERFORM  GET— TOKEN. 

IF  s  RPT *■  I D“C^,"v*S 

GO  TO  SRDP-EXIT. 

IF  TOKEN- 1-3  NOT  =  BIR-KEY-WBC 

MOVE  D I RECT I VE-WARN I NG-NQ-WDCS  TO  DIRECT*  E-OUT 
MOVE  ONE  TO  DIR-LIST-CC 
PERFORM  OUTPUT-DIRECT I VE 
GO  TO  SRDP-EXIT. 

PERFORM  WDC— PROCESSOR . 

PERFORM  GET-D I RECT I VE-AND-ECHO . 

IF  RPT— ID-SS  NOT  =  RPT-ID-C4-SS 
MOVE  ONE  TO  DIR-SS 
PERFORM  GET— TuKEN 
GO  TO  SRDP-EXIT. 

■  SET  UP  THE  03  REPORT  l*UMMY  DIRECTIVE  ANE*  ITS 

:-FONE*ING  SRD  EURECTIvE  CFROrf  D I  SECT  I  VE— HOLE*)  FC 


■ T  RECT  I  VE“HOLE*  Xu  DIR^CTIv^. 

H  STACK— E*  I  RECT  I  VE. 

RPT— I Ei  < RPT- 1 D-C3-SS >  TO  DIRECTIVE. 

'*:rDP~EX  IT. 

NEXT-FROH-ON— Em . 

3RDP-SE7-NE XT— r ROM-OFF— SS . 

T  BECOMES  D I  SI  RE  ABLE  TO  PROCESS  DEFAL«_ 
VARIOUS^  INDIVIDUAL  REPORTS*  THAT  CODE 


RDP— SET— NEXT— FRuM— OFF— tQ  WiRfUf  ALSO  NEED  TO 
BE  MODIFIED) 


24520 

** 

CORi 

24530 

PRO1 

■*  » 

PERF  ! 

24550 

MOVi 

24560 

PERF. 

24370 

MOVt  i 

245S0 

GO  TO 

24590 

SRuP^SET — i 

24600 

Gu  T  0 

24610 

* 

IF  I 

24620 

r  UK 

24630 

TO  ! 

24640 

<■ 

CSR 

24650 

♦ 

BE  i 

24660 

3RD 

P-EXIT 
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(UN'COMPILED  VERSIOH  COST'D) 


24670  EXIT. 

246S0  # 

24690 

24700  SRO-GN-EQ-CHECK-CGNS I ST  SECT I ON . 

24710  * 

24720  * 

24730  SOECC-ST ART . 

24740  PERFORM  GET-TOKEN. 

24750  IF  TOK-SIZE  =  SZERO 

24760  GO  TO  SOECC-EXIT. 

24770  IF  TOK-SIZE  NOT  =  THREE 

24780  PERFORM  D I RECT I VE-TQKEN-S I ZE-ERR3 

24790  GO  TO  SOECC-BLANK-TOKEN. 

24800  IF  TOKEN- 1  NOT  =  D I R-HOLD-SRD-F'REF I X 

24810  IF  B I R-HOLB-SRD-PREF I X  =  SPACE 

24820  MOVE  TOKEN- 1  TO  DIR-HOLD-SRD-PREFIX 

24830  GO  TO  SOECC-EXIT 


24840 

24850 

24860 

24870 

24880 

24890 

24900 

24910 

24920 

24930 

24940 

24950 

24960 

24970 

24980 


ELSE 

MOVE  BIR-TOK-SS  TO  DISPLAY-NUM 

MOVE  DISP-NUM-2  TO  D-W-SRD-NUM-1 

MOVE  DIR-SS  TO  DISPLAY-NUM 

MOVE  DISP-NUM-2  TO  D-W-SRD-NUM-2 

MOVE  D I RECT I VE-WARN I NG-SRD  TO  DIRECTIVE-OUT 

MOVE  ONE  TO  DIR-LIST-CC 

PERFORM  OUTPUT-D I RECT I VE 

GO  TO  SOECC-BLANK-TOKEN. 

GO  TO  SOECC-EXIT. 

SOECC-BLANK-TOKEN. 

PERFORM  SOECC-BL ANK- I T 

VARYING  TOK-SS  FROM  BIR-TOK-SS  BY  ONE 
UNTIL  TOK-SS  “  DIR-SS. 

GO  TO  SOECC-EXIT. 


24990  SOECC-BL ANK- I T . 

25000  MOVE  SPACE  TO  DIR  (TOK-SS). 

25010  SOECC-EXIT. 

25020  EXIT. 

25030  * 

25040  # 

25050  WDC— PROCESSOR  SECTION. 

25060  * 

25070  * 

25030  WDCP-START . 

25090  MOVE  DIR-SS  TO  D I R-SS-HO'-B . 

25100  PERFORM  GET-TOKEN. 

25110  IF  TOK-SIZE  >  ONE 

25120  GO  TO  WDCP-CHECK-NAME-tD. 

25130  PERFORM  GET-TOKEN 

25140  UNTIL  TOK-SIZE  >  ONE 

25150  OR  DIR-SS  >  DIR-MAX. 

25160  IF  TOK-SIZE  >  ONE 

25170  IF  TOKEN- 1-4  NOT  =  DIR-KEY-NAME 

25180  MOVE  WBC-NO— NAME  TO  TOKEN-1-15 

25190  GO  TO  WBCP- INSERT-NAME 
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25200 

25210 

25220 

25230 

25240 

25250 

25260 

25270 

25280 

25280 

25300 

25310 

25320 

25330 

25340 

25350 

25360 

25370 

25380 

25390 

25400 

25410 

25420 

25430 

25440 

25450 

25460 

25470 

25480 

25490 

25500 

25510 

25520 

25530 

25540 

25550 

25560 

25570 

25580 

25590 

25600 

256 1 0 

25620 

25630 

25640 

25650 

25660 

25670 

25680 

25690 

25700 

25710 

25720 


ELSE 

MOVE  ONE  TO  DIR-NAME-SW 
PERFORM  GET-TOKEN 
MOVE  8 ZERO  TO  DIR-NAME-SW 
IF  TOKEN- 1-1 5  NOT  =  SPACE 

GO  TO  WDCP-CHECK-NEW-NAME. 

MOVE  WDC-NO-NAME  TO  TOKEN-! -15. 

GO  TO  WDCP- INSERT-NAME. 

WDCP-CHECK-NEW-NAME. 

PERFORM  DUMMY 

VARYING  WDC-NAME-SS  FROM  WDC-NAME-TOP  BY  MIN-ONE 
UNTIL  WDC-NAME-SS  =  SZERO 

OR  WDC-NAME  (WDC-NAME-SS)  =  TOKEN-1 -15. 

IF  WDC-NAME-SS  =  SZERO 

GO  TO  WDCP- INSERT-NAME. 

MOVE  D I RECT I VE- W ARN I NG-DUP- WDC-NAME  TO  DIRECTIVE-OUT. 
MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT— Ei  I  RECT  I  VE . 

GO  TO  WDCP-L I NK-WDCS-TO— RPT . 

WDCF-CHECK-NAME- 1 D . 


THE  ONLY  WAY  TO  GET  HERE  IS  IF  THE  1ST  TOKEN  FOLLOWING 
THE  WDC  KEYWORD  ON  THE  DIRECTIVE  13  NOT  IN  THE  FORM  0 
A  WDC.  THIS  MEANS  THAT  A  DEFAULT  WDC  SET  NAME  IS  BE IN 
USED.  THEREFORE,  THE  WDC-NAME  TABLE  SHOULD  BE  SET  UP 


UNTIL  THIS 
SYSTEM. 


OPTION  IS  TO  BE 


FROM  WDC-NAME-TOP  BY  MIN-ONE 
SZERO 

(WDC-NAME-SS)  =  TOKEN- 


•:L~4. 


IF 


IF 


-ERR 


1S.KU 


TO  DIRECTIVE. 


WITH  NO  DEFAULT  NAMES 
INCORPORATED  INTO  THE 
PERFORM  DUMMY 

VARYING  WDC-NAME-SS 
UNTIL  WDC-NAME-SS  - 
OR  WDC-NAME- I D 
WDC-NAME-SS  =  SZERO 
PERFORM  D I RECT I VE- W ARN I NG-KE  r WORD- 
GO  TO  WDCP— EXIT. 

WDC-NAME-ST ART  (WDC-NAME-SS)  NOT  = 

GO  TO  WDCP-L I NK-WDCS-TO-RPT. 

MOVE  WDC— NAME-WDCS  ( WDC-NAME-SS ) 

MOVE  ONE  TO  DIR-SS. 

GO  TO  WDCP- I NSERT-WDCS . 

WDCP- INSERT-NAME. 

ADD  ONE  WDC-NAME-TOP  GIVING 
WDC-NAME-TOP 
WDC-NAME-SS. 

WDC-NAME-TOF  >  WDC-NAME-MAX 
MOVE  TWO  TO  DIR-LIST-CC 
MOVE  D I RECT I VE- W ARN T NG-ST ARS 
PERFORM  OUTPUT -D I RECT I VE 

MOVE  D I RECT I VE— F AT AL-WDC-T AB-2MANY  TO  DIRECTIVE-OUT 
PERFORM  GUTPUT-D I RECT I VE 

MOVE  DIRECTIVE-WARNING— STARS  TO  DIRECTIVE-OUT 
PERFORM  OUTPUT-DIRECTIVE  2  TIMES 
MOVE  SZERO  TO  DIR-LIST-CC 
PERFORM  OUTPUT-D I RECT I VE 
CLOSE  D I RECT I VE-L I ST-F I LE 
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IF 


TO  D I RECT J  VE— OU i 


G-54 


U. 


25730 
25740 
25750 
25760 
25770 
25730 
25790 
25300 
25310 
25820 
25330 
25340 
25850 
25360 
25370 
25380 
25890 
25900 
25910 
25920 
25930 
25940 
25950 
25960 
25970 
25930 
25990 
26000 
260 1 0 
26 020 
26030 
26040 
26050 
26060 
26070 
26080 
26090 
26100 
261 10 
26120 
26130 
26140 
26150 
26160 
26170 
26130 
26190 
26200 
26210 
26220 
26230 
26240 
26250 


STOP  RUN. 

MOVE  TOKEN-1-15  TO  WDC-NAME  ( WDC-NANE-SS ) . 

MOVE  SPACE  TO  WDC-NAME- ID  ( WDC-NAME-SS ) . 

MOVE  DIR-SS-HOLD  TO  DIR-SS. 

GO  TO  WDCF— INSERT— WDCS. 

WDOP- I NSERT-WDCS . 

MOVE  SZERO  TO 

SEL-T  AB-ST  ART 
SEL-TAB-CNT. 

WDCP- I NSERT-WDCS-LOOP . 

PERFORM  GET-TOKEN. 

JF  TOK-SIZE  >  ONE 

GO  TO  WDCP-S'ET-ST ART , 

IF  TOK-SIZE'  =  SZERO 

GO  TO  WDCP- I NSERT-WDCS-LOOP. 

ADD  ONE  TO  SEL-TAB-CNT. 

IF  SEL-TAB-CNT  >  WDC-MAX 

PERFORM  D I RECT I VE-T0KEN-2MANY-ERR 
GO  TO  WDCP—SET— START . 

PERFORM  I NSERT- I N-SEL-TABLE . 

IF  DIR-SS  NOT  >  DIR-MAX 

GO  TO  WDCP- I NSERT-WDCS-LOOP. 

WDCP-SET-START. 

MOVE  SEL-TAB-START  TO  WDC-MAME-ST ART  (WDC-NAME-SS). 

IF  SEL-TAB-CNT  =  SZERO 

MOVE  D I RECT I VE-WARN I NG-WDC-EMPTY  TO  DIRECTIVE-OUT 
MOVE  ONE  TO  DIR-LIST-CC 
PERFORM  OUTPUT-D I RECT I VE 
GO  TO  WDCP-EX IT . 

MOVE  WDC-NAME-SS  TO  SEL-T AB-L I NK 1  ( SEL-TAB-SS) . 

WDCP— L I NK— WDCS-TO-RPT . 

MOVE  WDC-NANE-START  (WDC-NAME-SS)  TO 
SEL-TAB-L J  NK 1  <  SEL-T AB-SS2 ) . 

WDCP-EX IT. 

EXIT. 

* 

■84 

WORKCENTER- AFSC-PROCESSOF:  SECT  I  ON . 


WAP-START. 

IF  DIR-AT-END  NOT  =  SZERO 
GO  TO  WAP-SUMMARIZE. 
WAP-LOOP. 

PERFORM  GET-D I RECT I VE-AND-ECHO . 
IP  DIR-AT-END  NOT  =  SZERO 
GO  TO  WAP-BUILD- INDEX. 

MOVE  ONE  TO  DIR-SS. 

PERFORM  GET-TOKEN. 

IF  TOKEN- 1-3  =  DIR-KEY-END 
GO  TO  WAP-BUILD- INDEX. 

MOVE  HIGH-VALUE  TO  TEST-WCTR-1- 
GO  TO 
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26260 
26270 
26280 
26290 
26300 
26310 
26320 
26330 
26340 
26350 
26360 
26370 
26380 
26390 
26400 
26410 
26420 
26430 
26440 
26450 
26460 
2  £>47  0 
26480 
26490 
26500 
26*510 
26520 
26530 
26540 
26550 
26560 
26370 
26580 
26590 
26600 
26610 
26620 
26-630 
26640 
26650 
26-660 
26670 
26680 
26690 
26700 
267 1 0 
26720 
26-730 
26740 
26750 
26760 
26770 
26780 


WAP-ERR-1 

WAP— ERR- 1 

WAP-3LEVEL-WCTR 

WAP-4LEVEL-WCTR 

WAP-5LEVEL-WCTR 

DEPENDING  ON  TOK-SIZE. 

GO  TO  WAP— ERR— 1. 

WAP-3LE VEL-WCTR . 

MOVE  TOKEN- 1-3  TO  TEST-WCTR-1-3. 

MOVE  S2ER0  TO  WCTR-SPLIT. 

MOVE  WCTR-ST ART  TO  SEL-TAB-START. 

PERFORM  WORKCTR-SEARCH . 

IF  SEL-TAB-START  =  SZERO 
00  TO  WAP- INSERT. 

00  TO  WAP-ERR-2. 

WAP-4LEVEL-WCTR. 

MOVE  TOKEN- 1-4  TO  TEST-WCTR-1-4. 

MOVE  ONE  TO  WCTR-SPLIT. 

KvE  WCTR-ST ART  TO  SEL-TAB-START. 

PERFORM  WORKCTR-SEARCH . 

IF  SEL-TAB-START  =  SZERO 

MOVE  TOKEN- 1-4  TO  TEST-WCTR-1-4 
00  TO  WAP- INSERT. 

00  TO  WAP-ERR-2. 

WAP-5LEVEL-WCTR . 

MOVE  TOKEN- 1-5  TO  TEST-WCTR-1-5. 

MOVE  TWO  TO  WCTR-SPLIT. 

MOVE  WCTR-ST ART  TO  SEL-TAB-START. 

PERFORM  WORKCTR-SEARCH . 

IF  SEL-TAB-START  =  SZERO 

•MOVE  TOKEN- 1-5  TO  TEST-WCTR-1-5 
GO  TO  WAP- INSERT. 

GO  TO  WAP-ERR-2. 

WAP— 1 NSERT . 

PERFORM  GET- TOKEN. 

IF  TOK-SIZE  NOT  =  FIVE 
GO  TO  WAP-ERR-1. 

IF  WCTR-3TART  =  SZERO 

MOVE  WCTR-ST  ART  TO  SEL-TAB-SS 
ELSE 

MOVE  SEL-T AB-L I NK 1  (WCTR-ST ART)  TO  SEL-TAB 

PERFORM  BIJMP-SEL-TAB-SS 

VARYING  SEL-T A8-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO. 

IF  SEL-TAB-CNT  =  WCTR-MAX 

PERFORM  D I RECT I VE-2MANY-ERR 
GO  TO  WAP-LOOP. 

PERFORM  OET-SEL-T AB-SLOT . 

MOVE  SEL-TAB-SS  TO  SEL-T AB-SS2 . 

MOVE  TEST-WCTR-1-5  TO  SEL-T AB-KEY- 1 -5  < SEL-TAB 

MOVE  WCTR-ST  ART  TO 
SEL-TAB-START 
SEL-TAB-SS. 
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26790 
26*800 
26810 
26820 
26*830 
26840 
26850 
26860 
26870 
26880 
26890 
26900 
26910 
26920 
26930 
26940 
26950 
26*960 
26970 
26980 
26990 
27000 
270 1 0 


WAP- INDEX-LOOP. 

IF  SEL-T AB-8T ART  =  SZERO 
GO  TO  WAP-SET-LIST. 

IF  TEST— WCTR- 1-5  >  SEL-T AB-KE Y- 1 -5  ( SEL-TAB-START ) 

MOVE  SEL-TAB-START  TO  SEL-TAB-SS 

MOVE  SEL-T AB-L I NK2  (SEL-TAB-START)  TO  SEL-TAB-START 
GO  TO  WAP- INDEX-LOOP. 

*  AT  THIS  POINT  TEST-WCTR-1-5  MUST  BE  <  SEL-T AB-KE Y- 1-5 

*  BECAUSE  = S  WERE  SCREENED  LONG  BEFORE  THIS 
WAP— SET— L I ST . 

IF  SEL-TAB-SS  NOT  =  SEL-TAB-START 
MOVE  SEL-TAB-SS  TO 
SEL-TAB-START 
SEL-TAB-SS3 

GO  TO  WAP-SET-LIST-END. 

IF  SEL-TAB-SS  =  SZERO 

*  INSERT  THE  1ST  INDEX  INTO  THE  TABLE 

PERFORM  GET-SEL-TAB-SLOT 
MOVE  SZERO  TO 

SEL-T AB-L I NK1  ( SEL-TAB-SS ) 

SEL-T AB-L I NK2  ( SEL-TAB-SS ) 

MOVE  SEL-TAB-SS  TO  WCTR-START. 

MOVE  SEL-TAB-SS  TO 


27020 
27030 
27040 
27050 
27060 
27070 
27080 
27090 
27100 
271 10 
27120 
27130 
27140 
27150 
27160 


SEL-TAB-START 
SEL-T AB-SS3 . 

MOVE  TEST-WCTR-1-5  TO  SEL-T AB-KEY- 1 -5  (SEL-TAB-SS). 
WAP-SET-LIST-END. 

MOVE  SEL-T  AB-L I NK 1  (SEL-TAB-SS)  TO  SEL-TAB-SS. 
WAP-LIST-LOOP. 

IF  SEL-TAB-SS  =  SZERO 

GO  TO  WAP-L I NK-WCTR- I NT 0-L I ST , 

IF  TEST-WCTR-1-5  >  SEL-T  AB-KEY- 1-5  (SEL-TAB-SS) 

MOVE  SEL-TAB-SS  TO  SEL-TAB-SS3 

MOVE  SEL-T  AB-L  I NK2  -(SEL-TAB-SS)  TO  SEL-TAB-SS 

GO  TO  WAP-LIST-LOOP. 

*  AGAIN,  AT  THIS  POINT  TEST-WCTR-1-5  <  SEL-T AB-KEY 

*  BECAUSE  ='S  WERE  PITCHED  OUT  LONG  SINCE 
WAP-L I NK-WCTR- I NTO-L I ST . 


27170 

27180 

27190 

27200 

27210 

27220 

27230 

27240 

27250 

27260 

27270 

27280 

27290 

27300 

27310 


IF  SEL-T AB-SS3  =  SEL-TAB-START 

MOVE  SEL-T  AB-L I NK 1  < SEL-T AB-SS3 )  TO 
SEL-T  AB-L I NK2  ( SEL-T AB-SS2 ) 

MOVE  SEL-TAB-SS2  TO  SEL-T  AB-L I NK 1  ( SEL-T AB-SS3 ) 
ELSE 

MOVE  SEL-T  AB-L I NK2  ( SEL-T AB-3S3)  TO 
SEL-TAB-L I NK2  ( SEL-TAB-SS2 ) 

MOVE  SEL-T AB-S32  TO  SEL-TAB-L I NK2  ( SEL-T AB-SS3 ) . 
MOVE  AFSC-START  TO 
SEL-TAB-START 
SEL-T AB-SS3. 

WAP-AFSC-LOOF . 

IF  SEL-TAB-SS3  =  SZERO 

GO  TO  WAP- I NSERT-NEW-AFSC . 

IF  TOKEN- 1-5  >  SEL- TAB-KEY- 1-5  ( SEL-T AB-SS3) 
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27320 
27330 
27340 
27350 
27360 
27370 
27380 
27390 
27400  «• 
27410 
27420 
27430 
27440 
27450 
27460 
27470 
27480 
27490 
27500 
27510 
27520 
27530 
27540 
27550 
27560 
27570 
27530 
27590 
27600 
27610 
27620 
27630 
27640 
27650 
27660 


TO  SEL-TAB-SS3 


MOVE  SEL-TAB-3S3  TO  SEL-TAB-START 
MOVE  SEL-TAB-L I NK2  <  3EL-T AB-SS3 )  ' 

GO  TO  WAP-AFSC-LOOP. 

IF  TOKEN- 1-5  =  SEL-T AB-KEY- 1 -5  ( SEL-T AB-S33 ) 

MOVE  SEL-T AB-SS3  TO  SEL-TA3-SS 
GO  TO  WAP— L I NK-WCTR— TO-AFSC. 

WAR— INSERT— NEW— AFSC. 

IF  AFSC-CNT  =  AFSC— MAX 
AFSC-CNT  JS  INITIALIZED  TO  0, AFSC-MAX  TO  99 

MOVE  SEL-T  AB-KEY- 1 -5  ( AFSC-ST  ART )  TO  D-W-A-2-AFSC 
MOVE  D I RECT I VE-WARN I NG-AFSC— 2MANY  TO  DIRECTIVE-OUT 
MOVE  ONE  TO  DIR-LIST-CC 
PERFORM  OUTPUT-D I RECT I VE 
MOVE  AFSC-ST ART  TO  SEL-TAB-SS 
GO  TO  WAF'-L  I  NK-WCTR— TO— AFSC . 

PERFORM  GET-SEL -TAB-SLOT. 

MOVE  TOKEN- 1-5  TO  SEL-T AB-KEY- 1 -5  ( SEL-TAB-SS ) . 

IF  SEL-TAB-SS3  =  SEL-TAB-START 

MOVE  AFSC-START  TO  SEL-TAB-L I NK2  (SEL-TAB-SS) 
SEL-TAB-SS  TO  AFSC-START 


MOVE 
ELSE 

MOVE  SEL-T AB-SS3  TO  SEL-TAB-L I NK2  (SEL-TAB-SS) 
MOVE  SEL-TAB-SS  TO  SEL-TAB-L I NK2  (SEL-TAB-START) 
ADD  ONE  TO  AFSC-CNT. 

WAP-L I NK-WCTR— TO-AFSC. 

MOVE  SEL-TAB-SS  TO  SEL-TAB-L I NK1  ( SEL-T AB-SS2 ) . 

GO  TO  WAP-LOOP. 

WAP-BUILD- INDEX. 

IF  WCTR-START  =  SZERO 

MOVE  WCTR-START  TO  SEL-TAB-SS 
ELSE 

MOVE  SEL-TAB-L I NK1  (WCTR-START)  TO  SEL-TAB-SS. 
PERFORM  BUMP-SEL-T AB-SS 

VARYING  SEL— T AB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO. 

N-150 


N— 50 


27670 

IF  SEL-T AB-CNT 

276S0 

MOVE  N-12 

27690 

GO  TO  WAP-: 

277 00 

IF  SEL-T AB-CNT 

27710 

MOVE  TEN  Ti 

27720 

GO  TO  WAP—' 

27730 

IF  SEL-T AB-CNT 

27740 

MOVE  FIVE  ' 

27750 

GO  TO  WAP— - 

27760 

GO  TO  WAP-EXIT 

27770 

WAP-SET-BREAKGFF . 

27780 

MOVE  WCTR-3T AR 

27790 

MOVE  SEL-TAB-L 

27800 

SUBTRACT  ONE  F! 

27310 

WAP-BREAK-LOOP. 

27820 

PERFORM  BUMP-SI 

27330 

VARYING  SE 

27840 

UNTIL  SEL- 

>  FIVE 

TO  SEL-T AB-CNT 


f  TO  SEL-TAB-START. 

[NK1  (WCTR-START)  TO  SEL-TAB-SS. 


:L-T AB-CNT  BY  MIN-ONE 
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27850 

27860 

27870 

27880 

27890 

27900 

27910 

27920 

27930 

27940 

27950 

27960 

27970 

27980 

27990 

28000 

28010 

28020 

28030 

28040 

28050 

28060 

28070 

28080 

28090 

28100 

28110 

28120 

28130 

28140 

23150 

28160 

28170 

28180 

28190 

28200 

28210 

28220 

28230 

28240 

28250 

28260 

28270 

28280 

28290 

28300 

28310 

28320 

28330 

28340 

28350 

28360 

28370 


OR  SEL-TAB-SS  =  SZERO. 

IF  SEL-TAB-SS  =  SZERO  OR 

SEL-T AB-L I NK2  (SEL-TAB-SS)  =  SZERO 
GO  TO  WAP-EXIT. 

MOVE  SEL-TAB-SS  TO  SEL-T AB-SS2. 

PERFORM  GET-SEL-TAB-SLOT. 

MOVE  SZERO  TO  SEL-T  AB-L I NK2  < SEL-TAB-SS ) . 

MOVE  SEL-TAB-SS  TO  SEL-T  AB-L I NK2  (SEL-TAB-START) . 

MOVE  SEL-TAB-SS  TO  SEL-TAB-START. 

MOVE  SEL-T  AB-L I NK2  < SEL-T AB-SS2 )  TO  SEL-T AB-SS3 . 

MOVE  SZERO  TO  SEL-T  AB-L I NK2  <  SEL-T AB-SS2 ) . 

MOVE  SEL-T AB-SS3  TO  SEL-T AB-L I NK1  < SEL-TAB-SS ) . 

MOVE  SEL-T AB-KEY- 1 -5  ( SEL-T AB-SS3)  TO 
SEL-TAB-KEY- 1 -5  ( SEL-TAB-SS ) . 

MOVE  SEL-T AB-SS3  TO  SEL-TAB-SS. 

GO  TO  WAP-BREAK-LOOP. 

WAP— ERR- 1 . 

PERFORM  DIRECTIVE-TOKEN-SI ZE-ERR2. 

GO  TO  WAP-LOOP. 

WAP— ERR— 2. 

MOVE  DIRECT I VE— WARN I NG-DUP— WCTR  TO  DIRECTIVE-OUT. 

MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-DIRECTIVE. 

GO  TO  WAP-LOOP. 

WAP-SUMM ARIZE. 

MOVE  D I RECT I VE-SUMM ARY-WCTR  TO  DIRECTIVE-SUMMARY-OUT. 
MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT— SO 1 . 

MOVE  ONE  TO  DIR-SUMMARY-CC. 

IF  WCTR-START  =  SZERO 

MOVE  D I RECT I VE-SUMM ARY-WCTR-NONE  TO 
D I RECT I VE-SUMM ARY-OUT 
PERFORM  OUTPUT— SOI 
GO  TO  WAP-EXIT. 

MOVE  WCTR-START  TO  SEL-TAB-START. 

PERFORM  WAP-S-SETUP-OUT 

UNTIL  SEL-TAB-START  =  SZERO. 

OPEN  OUTPUT  AFSC- I NDEX-F I LE. 

MOVE  AFSC-START  TO  SEL-TAB-SS. 

PERFORM  W AP-OUTFUT- AFSC- I NDEX 

VARYING  SEL— TAB-CNT  FROM  ONE  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO. 

CLOSE  AFSC- INDEX-FILE. 

GO  TO  WAP-EXIT. 

WAP-S-SETUP-OUT . 

MOVE  SEL-T AB-L I NK1  (SEL-TAB-START)  TO  SEL-TAB-SS. 

MOVE  SEL-T  AB-L I NK2  (SEL-TAB-START)  TO  SEL-TAB-START. 
PERFORM  WAP-S-OUTPUT 

UNTIL  SEL-TAB-SS  =  SZERO. 

WAP-S-OUTPUT. 

MOVE  SEL-T AB-L I NK1  (SEL-TAB-SS)  TO  SEL-TAB-SS2. 

MOVE  SEL-TAB-KEY- 1-5  (SEL-TAB-SS)  TO  TEST-WCTR-1-5. 

IF  TEST-WCTR-4  =  HIGH-VALUE 
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28380  MOVE  SPACE  TO  TE3T-WCTR-4. 

28390  IF  TE3T-WCTR-5  =  HIGH-VALUE 

28400  MOVE  SPACE  TO  TEST-WCTR-5. 

28410  MOVE  TEST-WCTR- 1 -5  TO  D-S-W-D-WCTR. 

28420  MOVE  SEL-T AB-KEY— 1 —5  ( SEL-T AB-SS2 )  TO  B-3-W-D- AFSC . 

28430  MOVE  SEL-T AB-L I NK2  (SEL-TAB-SS)  TO  SEL-T AB-SS. 

28440  MOVE  DIRECTX VE-SUMMARY-WCTR-DETAIL  TO 

28450  D I RECT I VE-SUMM ARY-OUT . 

28460  PERFORM  OUTPUT-301. 

28470  WAP-OUTPUT-AFSC-INDEX. 

28480  MOVE  SEL-TAB-CNT  TO 

28490  SEL-T AB-L I NK 1  <  SEL-TAB-SS ) 

28500  A- I -AF3C- I NDEX . 

28510  MOVE  SEL-T AB-KEY- 1 -5  (SEL-TAB-SS)  TO  A-I-AFSC. 

28520  WRITE  AFSC-INDEX-REC. 

28530  MOVE  SEL-T  AB-L I NK2  (SEL-TAB-SS)  TO  SEL-TAB-SS. 

28540  WAP-EXIT. 

28550  EXIT. 

28560  * 

28570  * 

28580  MBS-FROCESSOR  SECTION. 

28590  * 

28600  * 

28610  MP-START. 

28620  IF  DIR-AT-END  NOT  =  SZERO 

28630  GO  TO  MP-SUMMARIZE. 

28640  PERFORM  GET-TOKEN. 

28650  MOVE  TOKEN- 1-7  TO  D-S-M-MDS-USER . 

28660  GO  TO  MP-EXIT. 

28670  MP-SUHMAR I ZE . 

28680  OPEN  INPUT  B056B-B4-MASTER-F I LE . 

28690  READ  D056B-B4-M ASTER-FILE 

28700  AT  END  GO  TO  MP-CLOSE. 

28710  MOVE  B4-MDS  TO  B-S-M-MDS-B4. 

28720  MP-CLOSE. 

28730  CL.OSE  D056B—B4— MASTER— FILE. 

28740  MOVE  TWO  TO  DIR-SUMMARY-CC. 

28750  MOVE  DIRECT I VE-SUMMARY-MDS  TO  DIRECTIVE-SUMMARY-OUT. 

28760  PERFORM  OUTPUT-SO 1 . 

28770  GO  TO  MP-EXIT. 

28780  MP-EXIT. 

28790  EXIT. 

28800  * 

28810  * 

28820  SORTIE-PROCESSOR  SECTION. 

28830  * 

28840  -s 

28850  SP-START. 

28860  IF  DIR-AT-END  NOT  =  SZERO 

28870  GO  TO  SP— SUMMARIZE. 

28880  PERFORM  GET-TOKEN. 

28890  PERFORM  CONVERT-NUMERIC-TOKEN. 

28900  IF  TOKEN-VALUE  >  SZERO  AND  <  N— 1000000 
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28910 

NEXT  SENTENCE 

28920 

ELSE 

28930 

PERFORM  D I RECT I VE-TOKEN-S I ZE-ERR2 

28940 

GO  TO  SP— EXIT. 

28950 

IF  SORT IE-FLY-HRS-SW  NOT  =  SZERO 

28960 

MOVE  ONE  TO  OIR-LIST-CC 

28970 

MOVE  D I RECT I VE-WARN I NG-SORT I E-FLHR 

TO 

28980 

DIRECTIVE-OUT 

28990 

PERFORM  OUTPUT— D I RECT I VE 

29000 

GO  TO  SP-EXIT. 

29010 

MOVE  ONE  TO  SORT IE-FLY-HRS-SW. 

29020 

MOVE  TOKEN-VALUE  TO  SORTIE-FLY-HRS-COUNT. 

29030 

GO  TO  SP-EXIT. 

29040 

3P-SUMM ARIZE. 

29050 

IF  SORT IE-FLY-HRS-SW  =  ONE 

29060 

MOVE  SORTIE-FLY-HRS-COUNT  TO  DISPLAY-NUM 

29070 

MOVE  DISP— NUM— 6  TO  B-S-S-NUM 

29080 

ELSE 

29090 

MOVE  NOTHING  TO  D-S-S-NUM. 

29100 

MOVE  DIRECTIVE-SUMMARY-SORTIE  TO  DIRECTIVE-SUMMARY 

29110 

MOVE  TWO  TO  DIR-SUMMARY-CC. 

29120 

PERFORM  OUTPUT— SO 1 . 

29130 

GO  TO  SP-EXIT. 

29140 

SP-EXIT. 

29150 

EXIT. 

29160 

*• 

29170 

29180 

FLY I NG-HRS-PROCESSOR  SECT I ON . 

29190 

29200 

* 

29210 

FHP-START. 

29220 

IF  DIR-AT-END  NOT  =  SZERO 

29230 

GO  TO  FHP-SUMM ARIZE. 

29240 

PERFORM  GET-TOKEN. 

29250 

PERFORM  CONVERT-NUMER I C-TOKEN . 

29260 

IF  TOKEN-VALUE  >  SZERO  AND  <  N-1000000 

29270 

NEXT  SENTENCE 

29230 

ELSE 

29290 

PERFORM  D I RECT I VE-TOKEN-S I ZE-ERR2 

29300 

GO  TO  FHP-EXIT. 

29310 

IF  SORT IE-FLY-HRS-SW  NOT  =  SZERO 

29320 

MOVE  ONE  TO  DIR-LIST-CC 

29330 

MOVE  D I RECT I VE-WARN I NG-SORT I E-FLHR 

TO 

29340 

DIRECTIVE-OUT 

29350 

PERFORM  OUTPUT-D I RECT I VE 

29360 

GO  TO  FHP-EXIT. 

29370 

MOVE  TWO  TO  SORT IE-FLY-HRS-SW. 

29380 

MOVE  TOKEN- VALUE  TO  SORTIE-FLY-HRS-COUNT. 

29390 

GO  TO  FHP-EXIT. 

29400 

FHP-SUMMARIZE. 

29410 

IF  SORTIE-FLY— HRS— SW  =  TWO 

29420 

MOVE  SORTIE-FLY-HRS-COUNT  TO  DISPLAY-NUM 

29430 

MOVE  BISP-NUM-6  TO  B-S-FH-NUM 
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1 


29440 

29450 

29460 

29470 

29480 

29490 

29500 

29510 

29520 

29530 

29540 

29550 

29560 

29570 

29530 

29590 

29600 

29610 

29620 

29630 

29640 

29650 

29660 

29670 

29630 

29690 

29700 

29710 

29720 

29730 

29740 

29750 

29760 

29770 

29780 

29790 

29800 

29310 

29820 

29830 

29340 

29350 

29360 

29870 

29380 

29890 

29900 

29910 

29920 

29930 

29940 

29950 

29960 


ELSE 

MOVE  NOTHING  TO  D-S-FH-NUM. 

MOVE  DIRECT I VE-SUMMARY-FLY-HRS  TO  DIRECTIVE-SUMMARY-OUT. 
MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  0UTPUT-S01. 

GO  TO  FHP-EX IT. 

FHP-EX IT. 

EXIT. 


H0R-CATEG0RY-PR0CE330R  SECT I ON. 


-START. 

IF  DIR-AT-END  NOT  =  SZERO 
GO  TO  LCP— SUMMARIZE. 

-LOOP. 

PERFORM  GET-TOKEN. 

IF  TOK-SIZE  NOT  =  ONE 
IF  TOK-SIZE  =  SZERO 

GO  TO  LCP-CHECK— END 
ELSE 

PERFORM  D I RECT I VE-TOKEN-SI ZE-ERR3 
GO  TO  LCP-CHECK-END. 

MOVE  LAB-CAT-START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-TAB-SS 

VARYING  SEL-T AB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN- 1  =  SEL-T AB-KEY-1  (SEL-T 
IF  SEL-TAB-SS  NOT  *  SZERO 
GO  TO  LCP-CHECK-END. 

IF  SEL-T AB-CNT  =  LAB-CAT-MAX 

PERFORM  D I RECT I VE-T0KEN-2M AN Y-ERR 
GO  TO  LCP— EXIT. 

MOVE  LAB-CAT-START  TO  SEL-T AB-ST ART . 
PERFORM  I NSERT- I N-SEL-T ABLE . 

MOVE  SEL-TAB-START  TO  LAB-CAT-START. 
-CHECK-END. 

IF  DIR-SS  >  DIR-MAX 
GO  TO  LCP— EXIT. 

GO  TO  LCP-LOOP . 

-SUMMARIZE. 

MOVE  D I RECT I VE-SUMM AR Y-L AB-CAT  TO 
D— S— SEL— 1 —SELECT I ON— BLOCK . 

IF  LAB-CAT-START  NOT  =  SZERO 

MOVE  DIRECTIVE-SUMMARY-USER  TO 
D-S-SEL-2-SELECT I ON-BLOCK- 1 
MOVE  ONE  TO  TOK-SIZE 
ELSE 

MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 
Ei— S— SEL— 2-SELECT  J  ON-BLOCK- 1 . 

MOVE  LAB— CAT— ST  ART  TO  SEL— TAB— START. 
PERFORM  SELECTION— OUTPUT— SOI . 


(SEL-TAB-SS) 
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29970 
29980 
29990 
30000 
300X0 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 
30120 
30130 
30140 
30150 
30160 
30170 
30  ISO 
30190 
30200 
30210 
30220 
30230 
30240 
30250 
30260 
30270 
30280 
30290 
30300 
30310 
30320 
30330 
30340 
30350 
30360 
30370 
30330 
30390 
30400 
30410 
30420 
30430 
30440 
30450 
30460 
30470 
30480 
30490 


GO  TO  LCP-EX IT. 

LCP— EXIT. 

EXIT. 

ASS I GNMENT-CODE— PROCESSOR  SECT ION. 

■a 

•a 

ACP-START. 

IF  BIR-AT-END  NOT  =  SZERO 
GO  TO  ACP-SUMM ARIZE. 

ACP— LOOP . 

PERFORM  GET-TOKEN. 

IF  TOK-SIZE  NOT  =  TWO 
IF  TOK-SIZE  =  SZERO 

GO  TO  ACR-CHECK-ENB 
ELSE 

PERFORM  B I RECT I VE-TQKEN-S I ZE-ERR3 
GO  TO  ACP-CHECK-ENB . 

MOVE  ASSIGN-COBE-START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-TAB-SS 

VARYING  SEL-TAB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN- 1-2  =  SEL-T AB-KE Y— 1 -2  (SEL-TAB- 
IF  SEL-TAB-SS  NOT  =  SZERO 
GO  TO  ACP-CHECK-ENB. 

IF  SEL-TAB-CNT  =  ASSIGN-CODE-MAX 

PERFORM  D I RECT I VE-T0KEN-2M AN Y-ERR 
GO  TO  ACP-EXIT. 

MOVE  ASSIGN-COBE-START  TO  SEL-TAB-START . 

PERFORM  I NSERT- I N-SEL-T ABLE . 

MOVE  SEL-TAB-START  TO  ASSIGN-COBE-START. 
ACP-CHECK-ENB. 

IF  BIR-SS  >  BIR-MAX 
GO  TO  LCP-EX IT. 

GO  TO  ACP— LOOP . 

ACP— SUMMAR I ZE. 

MOVE  D I RECT I VE— SUMMAR Y— ASS I GN-COBE  TO 
B-S-SEL- 1 -SELECT I ON-BLOCK . 

IF  ASSIGN-COBE-START  NOT  =  SZERO 
MOVE  DIRECTIVE-SUMMARY-USER  TO 
D-S-SEL-2— SELECT I ON-BLOCK- 1 
MOVE  TWO  TO  TOK-SIZE 
ELSE 

MOVE  B I RECT I VE-SUMMAR Y-DEFAULT  TO 
B-S-SEL- 2-SELECT I ON-BLOCK- 1 . 

MOVE  ASSIGN-CODE-START  TO  SEL-TAB-START. 

PERFORM  SELECT I 0N-0UTPUT-S01 . 

GO  TO  ACP-EXIT. 

ACP-EXIT. 

EXIT. 

■a 

MA JOR-COMMANB-PROCESSOR  SECT I ON . 
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ft 

ft 

MCP— START, 

IF  DIR-AT-END  NOT  =  SZERO 
GO  TO  MCP-SUMM ARIZE. 

MCP— LOOP. 

PERFORM  GET-TOKEN. 

IF  TQK-SIZE  NOT  =  TWO 
IF  TOK-SIZE  =  SZERO 

GO  TO  MCP-CHECK-ENB 
ELSE 

PERFORM  D I RECT I VE-TOKEN-S I ZE-ERR3 
GO  TO  MCP-CHECK-ENB. 

MOVE  MA.JCOM— START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-TAB-SS 

VARYING  SEL-TAB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN- 1-2  =  SEL-T AB-KEY- 1 -2  (SEL-TAB-SS). 

IF  SEL-TAB-SS  NOT  =  SZERO 
GO  TO  MCP-CHECK-ENB. 

IF  SEL-TAB-CNT  =  MAJCOM-MAX 

PERFORM  D I RECT I VE-T0KEN-2MAN Y-ERR 
GO  TO  MCP— EXIT. 

MOVE  M A JCOM-ST ART  TO  SEL-T AB-ST ART . 

PERFORM  INSERT- IN-SEL— TABLE. 

MOVE  SEL-T AB-S1 ART  TO  MA JCOM-ST ART . 

MCP-CHECK-ENB. 

IF  BIR-SS  >  BIR-MAX 
GO  TO  MCP-EXIT. 

GO  TO  MCP-LOOP. 

MCP— SUMMARI ZE. 

MOVE  D I RECT I VE— SUMMAR Y-M A JCOM  TO 
B-S-SEL- 1 -SELECT I ON-BLOCK . 

IF  MA JCOM-ST ART  NOT  =  SZERO 

MOVE  DIRECTIVE— SUMMARY-USER  TO 
B-S-SEL-2-SELECT ION-BLOCK- 1 
MOVE  TWO  TO  TOK-SIZE 
ELSE 

MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 
B-S-SEL-2-SELECT I ON-BLOCK- 1 . 

MOVE  M A JCOM-ST ART  TO  SEL-T AB-ST ART. 

PERFORM  SELECT I ON-OUTPUT-SO 1 . 

GO  TO  MCP-EXIT. 

MCP-EXIT. 

EXIT . 

* 

ft 

TYPE-MA I NT-PR0CE3SGR  SECT I ON . 

ft 

ft 

TMP-ST  ART . 

IF  DIR-AT-END  NOT  =  SZERO 
GO  TO  TMP-SUMMARIZE. 
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PERFORM  TMP- INSERT I ON-LOOP  THRU  TMP- INSERT I ON-E 

GO  TO  TMP-EX IT. 

TMP-SUMMARI2E. 

MOVE  D I RECT I VE— SUMMARY- TYPE-M A I NT  TO 
D-S-SEL- 1 -SELECT I ON-ELOCK. 

IF  TYPE-MAINT-START  NOT  =  SZERO 

MOVE  DIRECTIVE-SUMMARY-USER  TO 
D-S— SEL-2-SELECT I ON-BLOCK- 1 
MOVE  ONE  TO  TOK-SIZE 
ELSE 

MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 
D—S—SEL— 2— SELECT I ON-BLOCK- 1 
MOVE  BEFAULT-TYPE-MAINT  TO  DIRECTIVE 
MOVE  ONE  TO  DIR-SS 
PERFORM  TMP- INSERT ION-LOOP  THRU 
TMP- I NSERT ION-EXIT 
MOVE  ONE  TO  TOK-SIZE. 

MOVE  TYPE-MAINT-START  TO  SEL-TAB-START. 

PERFORM  SELECT I GN-OUTPUT-SO 1 . 

00  TO  TMP-EX IT. 

TMP- I NSERT I ON-LOOP . 

PERFORM  GET-TOKEN. 

IF  TOK-SIZE  NOT  =  ONE 
IF  TOK-SIZE  =  SZERO 

GO  TO  TMP-CHECK-ENB 
ELSE 

PERFORM  D I RECT I V E-TOKEN-3 1 Z  E— ERRS 
GO  TO  TMP-CHECK-ENB . 

MOVE  TYPE-MAINT-START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-TAB-SS 

VARYING  SEL-TAB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN- 1  =  SEL-TAB-KEY-1  < SEL-TAB-SS) 

IF  SEL-TAB-SS  NOT  =  SZERO 
GO  TO  TMP-CHECK-ENB. 

IF  SEL-TAB-CNT  =  TYPE-MAI NT-MAX 

PERFORM  D I RECT I VE-T0KEN-2M ANY-ERR 
GO  TO  TMP- INSERTION-EX IT. 

MOVE  TYPE— MAI  NT— START  TO  S^EL— TAB-START. 

PERF ORM  I NSERT— I N-SEL- T ABLE . 

MOVE  SEL-TAB-START  TO  TYPE-MAINT-START. 

TMP-CHECK-END . 

IF  DIR-SS  >  DIR-MAX 

GO  TO  TMP- INSERT I ON-EX IT. 

GO  TO  TMP- INSERTION-LOOP. 

TMP— INSERTION— EXIT. 

EXIT. 

TMP-EX IT. 

EXIT. 


3-D I SI ! —WUC— PROCESSOR  SEC J I ON . 

* 
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* 
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3£tWP— START. 

31530 

IF  DIR— AT-E 

31590 

GO  TO  3 

3 1 600 

3BWP— LOOP. 

31610 

PERFORM  GET 

31620 

IF  D I R— AT— E 

31630 

GO  TO  3 
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MOVE  ONE  TO 

3 1 650 

PERFORM  GET- 
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IF  TOKEN- 1— 
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IF  TOK-SIZE  MOT  =  THREE 

PERFORM  D I RECT I VE- TOKEN -SI ZE-ERR2 
GO  TO  3DWP-LGGP. 

MOVE  3D I G-ST ART  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-TAB-SS 

VARYING  SEL— TAB— CNT  FROM  3 ZERO  BY 
UNTIL  SEL-TAB-SS  =  SZERO 

OR  TOKEN— 1— 3  =  SEL— TAB— KEY— 1—1 
IF  SEL-TAB-SS  NOT  =  SZERO 
GO  TO  3D WP— LOOP  - 
IF  SEL-T AB-CNT  =  3D Z 6-MAX 

PERFORM  D I RECT I VE— 2MANY— ERR 
GO  TO  3D WP— LOOP. 

MOVE  3D I G-ST ART  TO  SEL-T AB-START. 
PERFORM  I NSERT- I N-SEL-T ABLE . 

MOVE  SEL-T AB-START  TO  3D2G-START. 

GO  TO  3DWP-L00P. 

3DWP-SUMMAR I ZE. 

MOVE  D I  RECT  I  VE— SUMM  AR  Y-3D  J  G-w'UC  TO 
D-S-SEL- 1 -SELECTION-BLOCK . 

IF  3DIG-START  NOT  =  SZERO 

MOVE  D l RECT I VE-SUMMAR Y-USER  TO 
D-S-SEL -2-SELECT I ON-BLOCK- 1 
MOVE  THREE  TO  TOK-SIZE 
ELSE 

MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 
D-S-SEL— 2— SELECTI ON-BLOCK— 1 . 
MOVE  3D I G-ST ART  TO  SEL-T AB-START. 

PERF ORM  SELECT I OH— OUTPU '—SO 1 . 

GO  TO  3DWP-EX IT. 

3DWP-EXIT. 

EXIT. 


QUEEN— BEE— PROCESSOR  SECT I ON . 


QBP— START. 

IF  DIR— AT— END  NOT  =  SZERO 
GO  TO  QBP— SUMMARIZE. 

PERFORM  GET-TOKEN. 
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PERFORM  DUMMY 

VARYING  QB-TAB-SS  FROM  GB-TAB-MAX  BY  MIN-ONE 
UNTIL  QB-TAB-SS  =  3 ZERO 

OR  TOKEN- 1-4  =  QB-TAB-OIR-KEY  < QB-TAB-SS ) . 
IF  QB-TAB-SS  =  SZERO 

PERFORM  D I RECT I VE-WARN I NG-KEYWORD-ERR 
GO  TO  QBP-EXIT. 

GO  TO  QBP-EXIT. 

QBP-SUMMARI ZE. 

MOVE  DIRECTIVE-SUMMARY-QUEEN-B  TO 
D-S-SEL- 1 -SELECT I ON-BLOCK . 

IF  QB-TAB-SS  NOT  =  SZERO 

MOVE  DIRECTIVE-SUMMARY-USER  TO 
D-S-3EL-2-SELECT I ON-BLOCK- 1 

ELSE 

MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 
D-S-SEL-2-SELECT I ON-BLOCK- 1 
MOVE  ONE  TO  QB-TAB-SS. 

MOVE  QB-TAB-SEL-PRINT  < QB-TAB-SS)  TO 
D-S-SEL-2-SELECT I ON-BLOCK-2 . 

IF  (LINE-CNT  i-  THREE)  >  MAX-LINES-F'ER-PAGE 
MOVE  N-100  TO  LINE-CNT. 

MOVE  DIRECTIVE-SUMMARY-SELECT-1  TO 
D I RECT I VE-SUMMARY-OUT . 

MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT— SO 1 . 

MOVE  DIRECTIVE-SUMMARY-SELECT-2  TO 
D I RECT  J  VE-SUMMARY-OUT . 

MOVE  ONE  TO  DIR-SUMMARY-CC. 

PERFORM  0UTPUT-S01 . 

GO  TO  QBP-EXIT. 

QBP-EXIT. 

EXIT. 

•$ 

* 

COMPONENT— POS-PROCESSOR  SECT  J  ON . 

•» 

* 


32470  CNP-START. 

32480  IF  DIR-AT-END  NOT  =  SZERO 

32490  GO  TO  CNP-SUMMAR I  ZE . 

32500  PERFORM  GET-TOKEN. 

32510  PERFORM  DUMMY 

32520  VARYING  COMP-POS-QB-TAB-SS  FROM  QB-TAB-MAX  BY  MIN-ONE 

32530  UNTIL  COMP-FOS-QB-TAB  ERG 

32540  OR  TOKEN- 1-4  = 

32550  QB-TAB-D I R-KEY  ( COMP-POS-QB-TAB-SS ) . 

32560  GO  TO 

32570  CNP-EXIT 

32580  CNP— EX I T 

32590  DEPENDING  ON  COMP-POS-QB-TAB-SS. 

3260 0  C  N  P — E  R  R .. 

326 1 0  PERFORM  D I RECT I VE-WARN I NG-KEYWORD-ERR . 
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32620  GO  TO  CNP-EXIT. 

32630  CNP-SUMMAR I Z  E . 

32640  MOVE  DIRECT I VE-SUMMARY-COMP-POS  TO 

32650  D-S-SEL- 1 -SELECT I ON-BLOCK . 

32660  IF  COMP-PQS— QB -TAB-SS  NOT  =  SZERO 

32670  MOVE  j I RLcT I VE— SUMMARY-USER  TO 

32630  D-S-SEL— 2-SELECT I ON-BLOCK- 1 

32690  ELSE 

32700  MOVE  DIRECTIVE-SUMMARY-DEFAULT  TO 

327 1 0  D-S-SEL-2-SELECT I ON-BLOCK- 1 

32720  MOVE  TWO  TO  COMP-POS-QB-TAB-SS. 

32730  MOVE  SB-T AB-SEL-PR I NT  < COMP-POS-QB-TAB-SS)  TO 

32740  D-S-SEL— 2-SELECT I ON-BLOCK-2 . 

32750  IF  (LINE-CNT  +  THREE)  >  MAX-LINES-PER-PAGE 

32760  MOVE  N-100  TO  LINE-CNT. 

32770  MOVE  DIRECT I VE-SUMMARY-SELECT-1  TO  DIRECTIVE-SUMMARY-OUT 

327S0  MOVE  TWO  TO  DIR-SUMMARY-CC. 

32790  PERFORM  0UTPIJT-S01. 

32800  MOVE  DIRECT I VE-SUMMARY-SELECT-2  TO  DIRECTIVE-SUMMARY-OUT 

32810  MOVE  ONE  TO  DIR-SUMMARY-CC. 

32820  PERFORM  0UTPUT-S01. 

32830  GO  TO  CNP-EXIT. 

32840  CNP-EXIT. 

32850  EXIT. 

32860  * 

32870  * 

32880  GET-DIRECT I VE-ANO-ECHO  SECTION. 

32890  # 

32900  * 

32910  GDAE-START. 

32920  IF  DIR-STACK-SS  NOT  =  SZERO 

32930  MOVE  DIR-STACKED-DIRECTI VE  (DIF  3TACK-SS)  TO 

32940  DIRECTIVE 

32950  SUBTRACT  ONE  FROM  DIR-STACK-SS 

32960  GO  TO  GDAE-EXIT. 

32970  PERFORM  INPUT-DIRECTIVE. 

32980  IF  DIR-AT-END  NOT  =  SZERO 

32990  GO  TO  GDAE-EXIT. 

33000  MOVE  ONE  TO  DIR-LIST-CC. 

33010  MOVE  DIRECTIVE  TO  DIRECTIVE-OUT. 

33020  PERFORM  OUTPUT-D I RECT I VE . 

33030  GDAE-EXIT. 

33040  EXIT. 

33050  * 

33060  * 

33070  STACK-DIRECTIVE  SECTION. 

33080  STD-START. 

33090  ADD  ONE  TO  DIR-STACK-SS. 

33  oq  MOVE  DIRECTIVE  TO 

33 3 1 0  D I R-STACKED-D I RECT I VE  <  D I R-STACK-SS ) . 

33120  STD-EXIT. 

33130  EXIT. 

333.40  » 
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I NPUT-Q I RECTI VE  SECT I ON . 


ID-START. 

IF  DIR-AT-END  NOT  =  S2ER0 

MOVE  DIR-KEY-END  TO  DIRECTIVE 
GO  TO  ID-EXIT. 

READ  DIRECTIVES-FILE  INTO  DIRECTIVE 
AT  END 

MOVE  ONE  TO  DIR-AT-END 
-LOSE  D I RECT I VE3-F I LE 
jQ  TO  ID-START. 

ADD  ONE  TO  DIR-COUNT. 

GO  TO  ID-EXIT. 

ID-EXIT. 

EXIT. 


OUTPUT— D I RECT I VE  SECT I ON . 

(■  '  THE  APPARENT  INEFFICIENCIES  RESULTING  FROM  FAKING  AN 

f-  "AFTER  ADVANCING"  BY  USE  OF  "BEFORE  ADVANCING"  ACK- 

*  KNOWLEDGES  THE  FACT  THAT  HONEYWELL  COBOL  WRITES  2  LINE1! 

*  IN  THE  "AFTER  ADVANCING"  MODE  (THE  GCOS  SYSTEM  OUTPUT 

*  ROUTINES  ALWAYS  CAUSE  SLEWING  BEFORE  PRINTING)  WHICH 

*  GET  COUNTED  AS  2  PRINTLINES  AGAINST  THE  USER'S  JOB 

*  PRINTLINE  LIMIT.  THIS  METHOD  SHOULDN'T  CAUSE  MUCH 

*  GREIF  ON  A  CDC  CYBER. 

<- 

OD-START. 

IF  D I R-L I ST-OPEN  NOT  =  S2ER0 
GO  TO  OD-EXIT. 

IF  (LINE-CNT  +  D I R-L I ST— CC >  >  MAX-LI NES-PER-PAGE 
WR I TE  D I RECT I VE-L I ST-REC 
BEFORE  ADVANCING  TOP 
MOVE  SPACE  TO  DIRECT I VE-L I ST-REC 
WR I TE  D I RECT I VE-L I ST-REC 
BEFORE  ADVANCING  THREE 
MOVE  CDEP-VERS  T ON  TO  D-H-O-VERSION 
MOVE  DIRECTIVE-HEADER-0  TO  DIRECT I VE-L I ST-REC 


WRITE  D I RECT I VE-L I ST-RL '  BEFORE  ADVANCING  ONE 
ADD  ONE  PAGE-CNT  GIVING  » AGE-CNT  D-H-PAGE-CNT 
MOVE  DIRECTIVE-HEADER  TO  DIRECTI VE-LIST-REC 
WR I TE  D I RECT I VE-L I ST-REC 
BEFORE  ADVANCING  ONE 
MOVE  REPORT— GROUP-T I TLE  TO  D-H-2-TITLE 
MOVE  DIRECTIVE-HEADER-2  TO  DIRECT I VE-LIST-REC 
WRITE  DIRECT I VE-L I ST-REC 
BEFORE  ADVANCING  TWO 
MOVE  SIX  TO  LINE-CNT 
ADD  THREE  TO  DIR-LIST-COUNT 
ELSE 

WRITE  DIRECT I VE-L I ST-REC 
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BEFORE  ADVANCING  BIR-LIST-CC 
ADD  DIR— LIST— CC  TO  LINE-CNT. 

MOVE  DIRECTIVE-OUT  TO  DIRECT I VE-LI3T-REC. 

ADD  ONE  TO  D I R-L I ST-COUNT . 

OD-EXIT. 

EXIT. 

USER-  J.  NPUT-SUMMAR  Y- 1  SECT  I  ON . 

-*  THIS  SECTION  ALONG  WITH  USER- 1 NPUT-SUMMARY-2  DEFINES 

*  THE  CONTROL  OF  THE  SOI  REPORT  SEQUENCE. 

«• 

U IS 1 -START. 

OPEN  OUTPUT  SOI -FILE. 

MOVE  SPACE  TO  S01-REC, 

MOVE  N-100  TO  LINE-CNT. 

MOVE  SZERO  TO  PACE-CNT. 

PERFORM • MDS-PROCESSOR. 

PERFORM  SORT I E-PROCESSOR . 

PERFORM  FLY I NG-HRS-PROCESSOR . 

PERFORM  WORKCENTER-AFSC-PROCESSOR . 

PERFORM  LABOR-CATEGORY-PROCESSOR . 

PERFORM  ASS I GNMENT-CODE-PROCESSOR . 

PERFORM  TYPE-MA I NT-PROCESSOR . 

PERFORM  QUEEN-BEE-PROCESSOR . 

PERFORM  COMPONENT-POS-PROCESSOR . 

PERFORM  MAJOR-COMMAND-PROCESSOR . 

PERFORM  3-D I G I T-WUC-PROCESSOR . 

■*  REPORT-PROCESSOR  IS  CALLED  FOR  REPORT  SOI  AFTER  THE 

*  ABD6DA  FILE  HAS  BEEN  COMPLETELY  PROCESSED  (AT  THE 

*  END  OF  THE  SELECTION  SECTION  DURING 

*  USER- I NPUT-SUMMARY-2 ) . 

UISl— EXIT. 

EXIT. 

■i* 

* 

GET-TOKEN  SECTION. 

# 

GT-START. 

MOVE  DIR-SS  TO  DIR-TOK-SS. 

MOVE  SPACE  TO  TOKEN. 

MOVE  ONE  TO  TOK-SS. 

MOVE  SZERO  TO 
TOK-SIZE 
DIR-ERR-SW. 

GT-LOOP. 

IF  DIR-SS  >  DIR-MAX 

GO  TO  GT-END-TOKEN . 

MOVE  DIR  (DIR-SS)  TO  DIR-CHECK. 

IF  DIR-NAME-SW  NOT  =  SZERO 
IF  TOK-SS  >  DIR-NAME-MAX 
GO  TO  GT-END-TOKEN 
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ELSE 

60  TO  GT-PROCESS-CHAR. 

IF  DIR-CHECK  =  SPACE  , 

GO  TO  GT-SET-NEXT-CHAR. 

IF  DIR-CHECK  =  D I R-SP ACE-REPLACE 
MOVE  SPACE  TO  DIR-CHECK. 

IF  DIR-CHECK  =  COMMA 

GO  TO  GT-END-TOKEN. 

GT-PR0CES3-CHAR. 

IF  TOK-SS  >  TOK-MAX 
8  DISPLAY  "TOKEN  2  BIG" 

8  MOVE  DIR-ERR-SW  TO  DISPLAY-NUM 

8  DISPLAY  "  DIR— ERR-SW="  DISPLAY-NUM 

IF  DIR-ERR-SW  =  SZERO 

MOVE  ONE  TO  DIR-ERR-SW 
MOVE  DIR-SS  TO 
DIR-ERR-SS1 
DIR-ERR-SS2 

8  DISPLAY  "  ERR-SW  0" 

8  MOVE  DIR-ERR— SSI  TO  DISPLAY-NUM 

8  DISPLAY  "  ERR-SS 1 = "  DISPLAY-NUM 

8  MOVE  DIR-ERR-SS2  TO  DISPLAY-NUM 

8  DISPLAY  "  ERR-SS2="  DISPLAY-NUM 

GO  TO  GT-SET-NEXT-CHAR 
ELSE 

MOVE  DIR-SS  TO  DIR-ERR-SS2 
8  DISPLAY  "  ERR-SW  1" 

8  MOVE  DIR-ERR-SS1  TO  DISPLAY-NUM 

8  DISPLAY  "  ERR-SS 1="  DISPLAY-NUM 

8  MOVE  DIR-ERR-SS2  TO  DISPLAY-NUM 

8  DISPLAY  "  ERR-SS2="  DISPLAY-NUM 

GO  TO  GT-SET-NEXT-CHAR. 

MOVE  DIR-CHECK  TO  TDK  (TOK-SS). 

ADD  ONE  TO  TOK-SS. 

ADD  ONE  TO  TOK-SIZE. 

GT-SET-NE X  T-CH AR . 

ADD  ONE  TO  DIR-SS. 

GO  TO  GT-LOOP. 

GT-END-TOKEN. 

IF  DIR-ERR-SW  NOT  =  SZERO 

PERFORM  GT-OUTFUT-ERROR . 

ADD  ONE  TO  DIR-SS. 

IF  DIR-NAME-SW  =  SZERO 
GO  TO  GT-EXIT. 

PERFORM  DUMMY 

VARYING  TOK-SIZE  FROM  TOK-SIZE  BY  MIN-ONE 
UNTIL  TOK-SIZE  =  SZERO 

OR  TOK  (TOK-SIZE)  NOT  =  SPACE. 

*  THE  ABOVE  PERFORM  LOCATES  THE  RIGHTMOST  NON-BLANK 

*  CHARACTER  OF  A  NAME  AND  SETS  TOK-SIZE  TO  IT 
GO  TO  GT-EXIT. 

GT-OUTPUT-ERROR. 

MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 
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34740  MOVE  DISP-NUM-2  TO  D-W-S-NUM- 1 . 

34750  MOVE  DIR-ERR-SS1  TO  DISPLAY-NUM. 

34760  MOVE  DISP-NUM-2  TO  D-W-S-NUM-2. 

34770  MOVE  DIR-ERR-SS2  TO  DISPLAY-NUM. 

34780  MOVE  DISP-NUM-2  TO  D-W-S-NUM-3. 

34790  MOVE  ONE  TO  DIR-LIST-CC. 

34800  MOVE  DIRECT I VE-WARNING-SI ZE  TO  DIRECTIVE-OUT. 

34810  FERFORM  OUTPUT-DIRECTIVE. 

34320  GT-EXIT. 

34330  EXIT. 

34840  # 

34850  * 

34860  CONVERT-NUMERIC-TOKEN  SECTION. 

34870  * 

34880  # 

34890  CNT— START. 

34900  MOVE  ONE  TO  TOK-SS. 

34910  MOVE  SZERO  TO  TOKEN-VALUE 

34920  CNT— LOOP . 

34930  IF  TOK-SS  >  TOK-SIZE 

34940  GO  TO  CNT-EXIT. 

34950  IF  TOK  (TOK-SS)  NOT  NUMERIC 

34960  GO  TO  CNT-ERR, 

34970  MULTIPLY  TEN  BY  TOKEN- VALUE. 

34980  ADD  TOK-NUM  (TOK-SS)  TO  TOKEN- VALUE. 

34990  ADD  ONE  TO  TOK-SS. 

35000  GO  TO  CNT— LOOP. 

35010  CNT-ERR. 

35020  MOVE  SZERO  TO  TOKEN-VALUE. 

35030  MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 

35040  MOVE  DISP-NUM-2  TO  D-W-N-N-NUM-1 . 

35050  MOVE  DIR-SS  TO  DISPLAY-NUM. 

35060  MOVE  DISP-NUM-2  TO  D-W-N-N-NUM-2. 

35070  MOVE  DIRECTIVE-WARNING-NON-NUMERIC  TO  DIRECTIVE-OUT 

35080  MOVE  ONE  TO  DIR-LIST-CC. 

35090  PERFORM  OUTPUT-DIRECTIVE. 

35100  CNT-EXIT. 

35110  EXIT. 

35120  * 

35130  * 

35140  DIRECTIVE-TOKEN-SI ZE-ERR2  SECTION. 

35150  * 

35160  * 

35170  DTSE2-START. 

35180  MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 

35190  MOVE  DISP-NUM-2  TO  D-W-S2-NUM. 

35200  MOVE  DIRECTIVE-WARNING-SIZES  TO  DIRECTIVE-OUT. 

35210  MOVE  ONE  TO  DIR-LIST-CC. 

35220  PERFORM  OUTPUT-DIRECTIVE. 

35230  BTSE2-EX IT. 

35240  EXIT. 

35250  * 

35260  * 
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35270 

35230 

■» 

35290 

* 

35300 

35310 

35320 

35330 

35340 

35350 

35360 

35370 

35330 

35390 

35400 

35410 

-K- 

35420 

35430 

* 

35440 

■» 

35450 

35460 

35470 

35430 

35490 

35500 

35510 

35520 

35530 

* 

35540 

* 

s^-sso 

3  '60 

35  ’0 

35580 

35590 

35600 

35610 

35620 

35630 

35640  * 

35650  * 

35660 

35670  * 

35630  * 

35690 

35700 

35710 

35720 

35730 

35740 

35750 

357 60 

35770  * 

35730  * 

35790 


D I RECT 1 VE-TOKEN-S I 2E-ERR3  SECT I ON . 


0TSE3-ST  ART . 

MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 

MOVE  D I SP-NUM— 2  TO  D-W-33-NUM- 1 . 

MOVE  DIR-SS  TO  DISPLAY-NUM. 

MOVE  D I SP-NUM— 2  TO  D-W-S3-NUM-2. 

MOVE  DIRECTIVE-WARNING-SIZES  TO  DIRECTIVE-OUT. 
MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-DIRECTIVE. 

DTSE3-EXIT. 

EXIT. 


DIRECT I VE-T0KEN-2MANY-ERR  SECTION. 


DT2ME-START. 

MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 
MOVE  DISP-NUM-2  TO  D-W-2M-T-MUM. 
MOVE  D I RECT I VE-WARN I NG-2M AN Y-TOK 
MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-D I RECT I VE . 
DT2ME-EX IT. 

EXIT. 


TO  DIRECTIVE-OUT 


D I RtC T I VE-2MAN Y-ERR  SECT I ON . 


D2ME-START. 

MOVE  D I RECT I VE-WARN I NG-2MAN Y-D I R  TO  DIRECTIVE-OUT 
MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-D I RECT I VE . 

D2ME-EX IT, 

EXIT. 


D I RECT I VE-WARN I NG-KEY WORD-ERR  SECT I ON . 


DWKE-START. 

MOVE  DIR-TOK-SS  TO  DISPLAY-NUM. 

MOVE  DISP-NUM-2  TO  D-W-K-NUM. 

MOVE  D I RECT I VE-WARN IN6-KEYW0RD  TO  DIRECTIVE-OUT. 
MOVE  ONE  TO  DIR-LIST-CC. 

PERFORM  OUTPUT-D I RECT I VE . 

DWKE-EXIT. 

EXIT. 


PUT-TOKEN  SECTION. 
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35800  *  TRANSFERS  DATA  FROM  TOKEN  TO  DIRECTIVE. 

35810  *  REQUIRED  INPUTS  ARE  1) DIR-SS  POINTING  TO  NEXT  HOLE 

35820  *  TO  BE  FILLED  IN  DIRECTIVE  (DIRECTIVE  NEEDS  TO  BE 

35830  *  INITIhLIZED  BEFORE  THE  1ST  CALL  HERE  FOR  A  BUILDUP) » 

35840  *  2)  TOKEN  FILLED  WITH  DATA  TO  BE  TRANSFERRED, 

35850  *  3)  DIR-SPACER  FILLED  WITH  THE  INTER-TOKEN  SEPARATION 

35860  *  CHARACTER 

35870  *  OUTPUTS  ARE  1)  DIR-SS  POINTING  TO  NEXT  AVAILABLE 

35880  *  HOLE  IN  DIRECTIVE,  2)  THE  CONTENTS  OF  TOKEN  TRANS- 

35890  *  FERRED  INTO  DIRECTIVE  AND  PREFIXED  BY  THE  CHAR 

35900  *  IN  DIR-SPACER  (TOKENS  GOING  INTO  CHAR  POS  1  OF  DIRECTIVE 

35910  *  ARE  NOT  PREFIXED  BY  DIR-SPACER) 

35920  * 

35930  PT-START. 

35940  PERFORM  DUMMY 

35950  VARYING  TOK-SS  FROM  N-15  BY  MIN-ONE 

35960  UNTIL  TOK-SS  =  SZERO 

35970  OR  TDK  (TOK-SS)  NOT  =  SPACE. 

35980  MOVE  TOK-SS  TO  TOK-SIZE. 

35990  IF  DIR-SS  NOT  =  ONE 

36000  MOVE  DIR-SPACER  TO  DIR  (DIR-SS) 

36010  ADD  ONE  TO  DIR-SS. 

36020  MOVE  DIR-SS  TO  DIR-TGK-SS. 

36030  MOVE  ONE  TO  TOK-SS. 

36040  PT-LOOP. 

36050  IF  TOK-SS  >  TOK-SIZE 

36060  GO  TO  PT-EXIT. 

36070  IP  DIR-SS  >  DIR-MAX 

36080  DISPLAY  "PUT-TOKEN  OVERFLOW  IN  "  DIRECTIVE 

36090  GO  TO  PT-EXIT. 

36100  MOVE  TOK  (TOK-SS)  TO  DIR  (DIR-SS). 

36110  ADD  ONE  TO  TOK-SS. 

36120  ADD  ONE  TO  DIR-SS. 

36130  GO  TO  PT-LOOP. 

36140  PT-EXIT. 

36150  EXIT. 

36160  * 

36170  * 

36180  OUTPUT— SO 1 - 1 NBE X  SECTION. 

36190  * 

362*"0  * 

36210  OS I -START. 

36220  MOVE  DIRECTIVE-SUMMARY-OUT  TO  SOI- INDEX-DETAIL-DATA. 

36230  MOVE  DIR-SUMMARY-CC  TO  301-INDEX-LINESKIP. 

36240  WRITE  SO 1 - I NDEX -RECORD . 

36250  OSI-EXIT. 

36260  EXIT. 

36270  * 

36  280  * 

36290  SELECT I ON-OUTPUT— SO 1  SECTION. 

36300  * 

36310  * 

36320  SOS-START. 
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IF  SEL-TAB-START  =  SZERG 

MOVE  CGNSTANT-GF-ALL  TO 

D-S-SEL-2-SELECT I ON-BLOCK-2 
MOVE  ONE  TO  DIR-SUM-SEL-2-CNT 
GO  TO  SOS— SET— OUT . 

MOVE  SEL-TAB-START  TO  SEL-TAB-SS. 

PERFORM  BUMP— SEL-T AB— S3 

VARYING  SEL-TAB-CNT  FROM  SZERO  BY  ONE 
UNTIL  SEL-TAB-SS  =  SZERO. 

COMPUTE  D I R-SUM-SEL-2-L I NE— GMT  = 

D I R-SUM-SEL— 2-L I M I T  /  (TOK-SIZE  +  ONE). 

DIVIDE  SEL-TAB-CNT  BY  D I R-SUM-SEL-2-L I NE-CNT 
G I V I NG  D I R-SUM-SEL-2-CNT . 

IF  SEL-TAB-CNT  > 

( D I R-SUM-SEL -2-L I NE-CNT  *  D I R-SUM-SEL-2-CNT 
ADD  ONE  TO  D I  R-SUM-SEL— 2--CNT . 

PERFORM  SOS-SET-USER-DET A I L . 

SOS-SET —OUT . 

IF  (LINE-CNT  +  D I R-SUM-SEL -2-CNT  +  TWO)  > 

M A  X-L I NES-PER-PAGE 

MOVE  N-100  TO  LINE-CNT. 

MOVE  DIRECT I VE-SUMMARY-5ELECT-1  TO 
D I RECT I VE-SUMM ARY-OUT . 

MOVE  TWO  TO  DIR-SUMMARY-CC. 

PERFORM  0UTPUT-S01. 

MOVE  ONE  TO  DIR-SUMMARY-CC. 

SOS-GUT-LOGP. 

MOVE  DIRECTIVE-SUMMARY-SELECT-2  TO 
D I RECT I VE-SUMM ARY-OUT . 

PERFORM  OUTPUT-SO 1 . 

IF  SEL-TAB-START  =  SZERO 
GO  TO  SOS-EXIT. 

MOVE  SPACE  TO  D-S-SEL-2-SELECT I ON-BLOCK- 1 . 

PERFORM  SOS-SET-USER-DET A I L . 

GO  TO  SGS-OUT-L0OP. 

SOS-SET-USER-DET A I L . 

PERFORM  BU 1 LD-D I R-SUM-DETA I L . 

MOVE  DIRECTIVE  TO  D-S-SEL-2-SELECT I ON-BLOCK-2 

SOS-EXIT. 

EXIT. 

* 

* 

BU I LD-D I R-SUM-DETA I L  SECT I ON . 

* 

BDSD-ST  ART . 

MOVE  ONE  TO  DIR-SS. 

MOVE  SPACE  TO  DIRECTIVE. 

MOVE  COMMA  TO  DIR-SPACER. 

PERFORM  DDSD-EU I LD-L I NE 

VARYING  SEL-TAB-CNT  FROM 

D I R-SUM-SEL-2-L I NE-CNT  BY  MIN-ONE 
UNTIL  SEL-TAB-CNT  =  SZERO 
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tO  tO  tO  tO  tO  i.O  C0  i.O  tO  1,0  to  to  i.O  to  to  to 


SZERG 


36b‘4y 
36870 
36SS0 
36890 
36900 
36910 
36920 
36930 
36940  # 
36950  * 
36960  / 
36970 
36-930  * 
36990 
37000 
37010 
37020 
7030 
7040 

7050 

7051 
7060 
7070 
7080  *• 
7090 
7100 
7110 
7120 

7130 

7131 
7140 
7150 
7160  ** 

37 1 70 
37130 
/  1  '•  0 
37200 
37210 
37220 
37230 
37240 
37250  * 
37260 

37270 

37271 

37272 


OR  SEL-TAB-START  =  SZERG. 

GO  TO  BDSD-EXIT. 

BDSD-5U I LB-LINE. 

MOVE  SEL-TAB-KEY  (SEL-TAB-START)  TO  TOKEN. 

PERFORM  PUT-TOKEN . 

MOVE  SEL-TAB-LINK2  (SEL-TAB-START)  TO  SEL-TAB-START 
BDSD-EXIT. 

EXIT. 


SELECTION  SECTION. 


S-START. 

OPEN  INPUT  ABD6DA-FILE 
OUTPUT 

SELECT I ON- REPORT-F I LE 
COMBINATION-FILE 
REJECT-FILE 
KNT-INDEX-FILE. 

MOVE  SZERO  TO  ABD6DA-AT-END . 

S-LOOP. 

#■*•*■*■*0 1  SPLAY  "  INPUT-AB06DA" . 

PERFORM  I NPUT -ABD6DA . 

IF  ABD6DA- AT -END  NOT  =  SZERO 
CLOSE 

COMB I NAT I ON-F I LE 
REJECT-FILE 
{KNT-INDEX-FILE} 

PERFORM  USER- I NPUT-SUMM ARY-2 
60  TO  S-EXIT. 

******01  SPLAY  “  6DA-REC=  -  6DA-REC0RD. 

IF  6DA-1-79  =  0LD-6DA-1— 79 

MOVE  SZERO  TO  REJECT— REASON 
PERFORM  REJECT-PROCESSOR 
GO  TO  S-LOOP. 

MOVE  6DA-1-79  TO  0LD-6DA-1-79. 

IF  6DA-REC-ID  NOT  NUMERIC 
GO  TO  S-LOOP. 

IF  6DA-REC-ID  =  FOUR-X 
*  -*tf-**DIS'PLAY  "SELECT- INDIRECT” 
PERFORM  SELECT- I ND I RECT 
GO  TO  S-LOOP. 
jMOVE  6DA-REC-ID-NUM  TOl 
|  NEW-REC— ID.  ! 


37230  *****01 SPLAY  "SELECT -SRD " . 


37290 

PERFORM  SELECT —SRD . 

37300 

IF  SRD— SS  =  SZERO 

37310 

GO  TO  S— LOOP. 

3731 1 

/MOVE  6DA-SRD-1  TO 

37312 

{  NEW— SRD— 1 . 

37313 

*  MOVE  6DA— EQU I P— CL ASS 
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37314  {NEW-SRD-2-3.} 

37320  GO  TO 

37330  8- ID- 1-3 

37340  S- ID-2-5 

37350  3— ID- 1-3 

373*0  3-EX  IT 

37370  8- ID— 2-5 

37330  S- ID-3-7 

37390  S- ID-6-7 

37400  DEPENDING  ON  6DA-REC- I D-NUM - 

37 410  8“ ERR . 

37420  DISPLAY 

37430  GARBAGE-WARNING 

37440  M***G0— TO— DEP  MISMATCH  8TW  SELECTION+INPUT-ABD&DA 

37450  "  SECTIONS  ON  EEC- ID-"  6DA-REC-ID 

37460  MOVE  N-15  TO  REJECT-REASON. 

37470  MOVE  ONE  TO  GARBAGE-FLAG. 

37430  PERFORM  REJECT-PROCESSOR. 

37490  GO  TO  S-LOOP . 

37500  S— ID— 6— 7. 

37510  *-*#«-*DISPLAY  "SELECT-6— OR— 7— REC" . 

37520  PERFORM  SELECT— 6— OR— 7— REC . 

37530  GO  TO  3-LOOP . 


37540  3- ID-2-5. 

37550  ****#DISPLAY  "2  OR  5  REC". 

37560  MOVE  SIX  TO  REJECT-REASON. 


37570 

37530 

37590  S- 

37600 

37610  * 

37620 

37630 

37640 

37650 

37660  * 

37670 

37630 

37690 

37700 

37710  * 

37720 

37730 

37740 


PERFORM  REJECT-PROCESSOR. 

GO  TO  S-LOOP. 

ID- 1-3. 

IF  LAB-CAT-START  NOT  =  S2ER0 
-****0 1  SPLAY  “  SELECT-LABOR-CATEGORY  " 
PERFORM  SELECT-LABOR-CATEGORY 
IF  SEL-TAB-SS  =  S2ER0 
GO  TO  S-LOOP. 

IF  ASSIGN-CODE-START  NOT  =  SZERO 
■s-s-s-sB  I  SPLAY  "  SELECT- ASS  I GNMENT— CODE  " 
PERFORM  SELECT- ASS I GNMENT-CODE 
IF  SEL-TAB-SS  =  SZERO 
GO  TO  S-LOOP. 

IF  MA JC0M-S7 ART  NOT  =  SZERO 
****DISPLAY  "SELECT-MAJOR-COMMAND" 
PERFORM  SELECT-MAJOR-COMMAND 
IF  SEL-TAB-SS  =  SZERO 
GO  TO  S-LOOP. 


37750  *■*■*■*•*01  SPLAY  "SELECT-WORKCENTER". 
37760  PERFORM  SELECT-WORKCENTER. 

37770  IF  SEL-TAB-SS  =  SZERO 

37730  GO  TO  S-LOOP. 

37781  (MOVE  SEL-T AB-L I NK 1  (AFSC-SS) 

37732  (  TO  NEW-AFSC- INDEX. 

37790  *****BISPLAY  "SELECT-TYPE-MAINT" . 
37300  PERFORM  SELECT-TYPE-MAINT. 

37310  IF  SEL-TAB-SS  =  SZfc.RO 
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GO  TO  S— LOOP. 

(MOVE  6DA-T YPE-Mfi I NT  | 

\  TO  NEW-T YFE-MA I  NT .) 

IF  6DA-SRD-1  =  X 

*  ‘  i4*-^ *D  I  SPLAY  “  SELECT -QUEEN-BEE  *" 

PERFORM  SELECT-QUEEN-BEE 
IF  SEL— TAB— SS  =  SZERO 
GO  TO  3-LOOP . 

IF  6DA-DAT A-CLASS  =  H 
•*  ***-*BISPLAY  "  SELECT-SUPPORT-GENERAL '* 

PERFORM  SELECT— SUPPORT-GENERAL 
IF  SEL-TAB-S3  =  SZERO 

*  THE  ONLY  WAY  SEL-TAB-SS  WILL  NOT  BE  -  O  AT  THl 

*  POINT  IS  WHEN  A  WUC  OF  FORM  04XXX  FITS  ON  A  SP 

*  INSPECTION  REPORT 

GO  TO  S-LOOP 
ELSE 

GO  TO  S-CHECK-M ANHRS . 

IF  6B  A-T  YPE-M  A I  NT  =  T  OR  Z 

*  ****DISr'LAY  "SELECT— TCTO" 

PERFORM  SELECT— TCTO 
GO  TO  S-LOOP. 

IF  6DA-ATC  =  T  OR  U 

*  ****DISPLAY  “SELECT-CANNIBALIZATION” 

PERFORM  SELECT-CANNIBALIZATION 
GO  TO  S-LOOP. 

****** DISPLAY  " SELECT- WDC-AND-RPT " . 

PERFORM  SELECT-WDC-AND-RPT. 

IF  SEL-TAB-SS  =  SZERO 
GO  TO  S-LOOP. 

{MOVE  SDA-WDC  TO 
NEW-WDC. 

MOVE  6BA-MANHRS 

TO  NEW-MAN-HOURS . 

IF  SB I 6-START  NOT  =  SZERO 
*  •**■*-&  D  I  SPLAY  '*  SELECT -3-D  i  G I T-WUC  " 

PERFORM  SELECT— 3-D I G I T-WUC 
IF  SEL-TAB-SS  =  SZERO 
GO  TO  S-LOOP . 

•s-s-s-s-ss-D I  SPLAY  "SELECT— LCOM-ATC— AND— UNITS" . 

IF  c-E«A— CREWS  I ZE  NOT  NUMERIC 
DISPLAY 

GARBAGE-WARN I NG 
6DA-REC0RD 
"  CREW" 

MOVE  N— 15  TO  REJECT-REASON 
MOVE  ONE  TO  GARBAGE— FLAG 
PERFORM  REJECT-PROCESSOR 
GO  TO  S-LOOP. 

PERFORM  SELECT-LCOM- ATC-AND-UN I TS . 

IF  LATC- INDEX  =  SZERO 
GO  T O  S-LOOP . 

*****DISPLAY  "OUTPUT-SELECT-BETA I L-D" , 
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PERFORM  OUTPUT-SELECT— DEI A i L-B. 

8— CHECK-HANHRS . 

**#**01 SPLAY  "SELECT  CHECK  MANHOURS". 
IF  MANHOURS  =  S2ER0 

MOVE  N— 14  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR 
GO  TO  S— LOOP. 

I  SPLAY  "SELECT-COMBINATION" . 
PERFORM  SELECT-COMB I NAT I ON . 

GO  TO  S— LOOP. 

S-EXIT. 


EXIT. 


a- 


USER- I NPUT— SUMMARY— 2  SECT I ON . 

*  THIS  SECTION  IN  CONJUNCTION  WITH 

*  USER  I NPUT— SUMMARY— 1  SECTION  (FROM  THE  INI T I ALII 

*  SECTION)  CONTROL’S  THE  GENERATION  OF  THE  SOI  ANl' 

•*  REPORTS. 

UIS2-START. 

PERFORM  REPORT —PROCESSOR . 

MOVE  SZERO  TO  DIR-SUMMARY-CC. 

PERFORM  OUTPUT— SOI . 

CLOSE 

SOI -FILE 

SELECT I GN-REPORT-F ILE. 

OPEN  OUTPUT  SOO-FILE. 

MOVE  N-100  TO  LINE— CNT 
MOVE  SPACE  TO  SOO-REC. 

MOVE  SZERO  TO  PAGE-CNT. 

PERFORM  GENERATE-SOO. 

MOVE  SZERO  TO  SOO-CC. 

PERFORM  OUTPUT-SOO. 

CLOSE  SOO— F I LE . 


■a- 

SELECT— I ND I SECT  SECT I ON . 


SEL I -START. 

MOVE  6BA-WCTR  TO  TEST-wCTR-’ -5. 

MOVE  WCTR— STAR!  TO  SEL— TAB— -START. 

MOVE  TWO  TO  WCTR— SPLIT. 

PERFORM  WORKCTR— SEARCH. 

IF  SEL— TAB— START  =  SZERO 

MOVE  ONE  TO  REJECT-REASON 
PERFORM  REJECT— PROCESSOR 
GO  TO  SEL I— EXIT. 

IF  RPT— ID— PRINT— CLASS  (RPT— ID— 3A— SS)  =  TWO 
GO  TO  SELi-SA— ACCOM, 

MOVE  SEL— TAB— LINK 1  ( SEL— TAB— START )  Tu  AFSC— SS. 
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MOVE  3EL— TAB— KEY— 1—5  (AFSC— SS>  Tu  SEL— D— A— AFSu. 
MOVE  MANHOURS  TO  SEL— D— A— MANHRS. 

PERFORM  DUMMY 

VARYING  IND-WUC-SS  FROM  IND-WUC-MAX  BY  MIN-ONE 
UNTIL  IND-WUC-SS  =  SZERO 

OR  IND-WUC-i-3  (IND-WUC-SS)  =  6BA-WUC-1-3. 
IF  IND-WUC-SS  =  SZERO 

DISPLAY  GARBAGE— WARNING  6DA— RECORD  “  IND— WUC" 
MOVE  N-15  TO  REJECT-REASON 
MOVE  ONE  TO  GARBAGE-FLAG 
PERFORM  REJECT-PROCESSOR 
GO  TO  SEL I -EXIT- 

MOVE  IND-WUC-SS  TO  SEL-D- A-COL- I NDEX . 

WRITE  SELECT  I  ON-RECOREi  FROM  SELECT-DETAIL— A. 

SEL I — S A— ACCUM . 

ADD  ONE  TO  SOO-COUNT  ( SOO-SA-OFFSET ) . 

ADD  MANHOURS  TO  SOO— MANHRS  (SOO-SA-OFFSET). 
SELI-EXIT. 

EXIT. 


SELECT-SRD  SECTION. 

■s 


SELS-START. 

MOVE  6DA-SRD-1  TO  SRD-1. 

MOVE  6DA-EQU IP-CLASS  TO  SRD-2-3. 

MOVE  SRB-START  TO  SEL-TAB-SS. 

PERFORM  8UMP-SEL-TAB-SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  SRD  =  SEL-TAB-KEY- 1 -3  (SEL-TAB-SS). 
MOVE  SEL-TAB-SS  TO  SRD-SS. 

IF  SRD-SS  =  SZERO 

MOVE  TWO  TO  REJECT-REASON 
PERFORM  REJECT -PROCESSOR 
GO  TO  SELS-EXIT. 

SELF-— EX  IT. 

EXIT. 


* 

SELECT— 6— OR— 7— REC  SECT I ON . 

■s 

■* 

SEL67-S TART . 

ir  RPT—  IE<— PFilNT— CLASS  (RPT—  ID— SC— SS)  —  TWO 
GO  TO  SEL67— ACCUM. 

IF  6DA— REC— ID  =  SIX— X 
60  TO  SEL6— SETUP. 

SEL 7 -SETUP. 

IF  6DA— 7— RJ  =  F.  OR  I 

MOVE  2ZER.0S  TO  SEL— D—C— WUC— 1—2 
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MOVE  6DA-7-RI  TO  SEL-D-C-RI 
00  TO  SEL67-0UTPUT . 

00  TO  SEL67— ERR. 

SEL6-SETUP. 

IF  6DA-6-RI  =  R  OR  I 

MOVE  6DA-6-WUC- 1 -2  TO  SEL-D-C-WUC-1-2 
MOVE  6DA-6-R I  TO  SEL-D-C-RI 
GO  TO  SEL67-0UTPUT. 

GO  TO  SEL67-ERR. 

SEL67-GUTPUT. 

WRITE  SELECTION-RECORD  FROM  SELECT-DET A I L-C . 
SEL67-ACCUM. 

ADD  ONE  TO  SOO-COUNT  ( SOO-SC-OFFSET ) . 

ADD  MANHOURS  TO  SOO-MANHRS  ( SOO-SC-OFFSET  > . 
GO  TO  SEL67-EX IT. 

SEL67-ERR. 

DISPLAY  GARBAGE-WARNING  60A-REC0RD  "  67-RI". 
MOVE  N-15  TO  REJECT-REASON. 

MOVE  ONE  TO  GARBAGE-FLAG. 

PERFORM  REJECT-PROCESSOR . 

SEL67-EX IT. 

EXIT. 


SELECT-LABOR-CATEGORY  SECT I ON . 


SELLC-START. 

MOVE  LAB-CAT-START  TO  SEL-TAB-3S. 

PERFORM  BUMP-SEL-T AB--SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  6DA-LAB0R-CA1 EGORY  =  SEL-T AB-KE Y- 1  (SEL-TAB- 
IF  SEL-TAB-SS  =  SZERO 

MOVE  THREE  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR . 

SELLC-EXIT. 

EXIT. 


SELECT-ASS I GNMENT-CODE  SECT I ON. 


SELAC-START . 

IF  6DA-117  NOT  =  M 

MOVE  SZERO  TO  SEL-TAB-SS 
GO  TO  SELAC-NOT-FOUND. 

MOVE  ASSIGN-CODE-START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-T AB-SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  6DA-ASS I GN-CODE  -  SEL-T AB-KEY- 1 -2  (SEL-TAB- 
IF  SEL-TAB-SS  NOT  =  SZERO 
GO  TO  SELAC-EXI”. 

SELAC-NOT-FOUND . 
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MOVE  FOUR  TO  REJECT-REASON. 

PERFORM  REJECT-PROCESSOR . 

00  TO  SELAC-EXIT. 

SELAC-EX IT . 

EXIT. 

* 

SELECT -MAJOR-COMMAND  SECT I ON . 

■s- 

* 

SELMC-START. 

MOVE  MA JCGM-ST ART  TO  SEL-TAB-SS. 

PERFORM  BUMP— SEL-T AB-3S 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  6DA- ACTIVITY- ID  =  SEL-TAB-fc E Y- 1 -2  (SEL-TAB- 
IF  SEL-TAB-SS  ~  SZERO 

MOVE  FIVE  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR . 

SELMC-EXIT. 

EXIT. 

* 

SELECT-WGRKCENTER  SECT I ON . 

* 

SELW-START. 

MOVE  6DA-WCTR  TO  TEST-WCTR-1-5. 

MOVE  WCTR-ST ART  TO  SEL-TAB-START. 

MOVE  TWO  TO  WCTR-SPLIT. 

PERFORM  WORKCTR-SEARCH . 

IF  SEL-TAB-START  NOT  =  SZERO 
■*  SEL-TAB-SS  WILL  =  SEL-TAB-START  HERE 

MOVE  SEL-TAB-L I NK 1  (SEL-TAB-START)  TO  AFSC-SS 
GO  TO  SELW-  *  .IT. 

MOVE  SZERO  TO  StL-TAB-SS. 

IF  RPT- IB-PRINT-CLASS  ( RPT- I D-SB-SS )  =  TWO 
GO  TO  SELW-ACCUM. 

MOVE  6DA-WCTR  TO  SEL-D-B-WCTR. 

MOVE  MANHOURS  TO  SEL-D-B-MANHRS. 

IF  6DA-UNITS  NOT  NUMERIC 
DISPLAY 

GARBAGE- WARNING 
6DA-REC0RD 

"  WCTR-UNITS,  SET  TO  ZERO" 

MOVE  2 ZEROS  TO  SEL-D-B-UMITS 
ELSE 

MOVE  6D A— UN ITS  TO  SEL-D-B-UNITS. 

WRITE  SELECTION-RECORD  FROM  SELECT-BETA I L-B. 
SELW-ACCUM. 

ADD  ONE  TO  SOO-COUNT  ( SOO-SB-OFFSET ) . 

ADD  MANHOURS  TO  SOO-MANHRS  (SOO-SB-OFFSET). 

MOVE  SEVEN  TO  REJECT-REASON. 

F  ERFORM  REJECT-PROCESSOR . 
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SELW-EXIT. 

EXIT. 


SELECT-T YPE-M A  I  NT  SECT  I  ON . 

3ELTM-ST  ART . 

MOVE  TYPE-MA I NT-8T ART  TO  SEL-TAB-SS. 
PERFORM  BUMP-SEL-T A8-SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  6DA-TYPE-MAINT  =  SEL-TAB-KEY- 
IF  SEL-TAB-SS  =  SZERO 

MOVE  EIGHT  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR . 

SELTM-EXIT. 

EXIT. 

# 

* 

SELECT-QUEEN-BEE  SECT I ON . 

SELQB-ST  ART . 

GO  TO 

SELQB- INCLUDE 
SELQB-EXCLUDE 
SELQB-ONLY 

DEPENDING  ON  QB-TAB-SS. 

SELQB-FAIL. 

MOVE  SZERO  TO  SEL-TAB-SS. 

MOVE  NINE  TO  REJECT-REASON. 

PERFORM  REJECT- PROCESSOR . 

GO  TO  SELQB-EXIT. 

SELQB- INCLUDE. 

MOVE  ONE  TO  SEL-TAB-SS. 

GO  TO  SELQB-EXIT. 

SELQB-EXCLUDE. 

IF  6DA-QUEEN-BEE-FLAG  NOT  =  Q 
GO  TO  SELQB- INCLUDE. 

GO  TO  SELQB-FAIL. 

SELQB-ONLY. 

I F  6DA-QUEEN-BEE-FLAG  =  Q 
GO  TO  SELQB- INCLUDE. 

GO  TO  SELQB-FAIL. 

SELQB-EXIT. 

EXIT. 

# 

«■ 

SELECT-SUPPORT-GENERAL  SECT I ON. 

■* 

SELSG-START. 

MOVE  SZERO  TO  SEL-TAB-SS. 

IF  6DA-WUC— 1-2  =  WUC-03 

MOVE  SOO-SE-OFFSET  TO  SOO-SS 
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IF  RPT- ID-PRINT-CLASS  ( RPT- I D-SE-S8 )  =  TWO 
GO  TO  SELSG-ACCUM 
ELSE 

MOVE  E  TO  SEL-D-EF-RPT-ID 
IF  6DA-UNIT3  NOT  NUMERIC 

GO  TO  SELSG-OUTPUT-GARBAGE-UN I T3 
ELSE 

GO  TO  SELSG-OUTPUT-SEL-DET-EF. 

IF  60A— WUC-1-2  NOT  =  WUC-04 

GO  TO  SELSG-OUTPUT-SEL-DET-D. 

IF  3DIG-START  NOT  =  SZERO 
GO  TO  SELSG-CHECK-SF. 

IF  6BA-UNITS  NOT  NUMERIC 

GO  TO  SELSG-OUTPUT-GARBAGE-UN ITS. 

MOVE  6DA-UNITS  TO  UNITS. 

MOVE  RPT- I D-CO— S3  TO  RPT-ID-SS. 

«■  *  THIS  NEXT  PERFORM  IS  THE  ONLY  PLACE  IN  THE 

f-  *  SELECT-SUPPORT-GENERAL  SECTION  WHERE  SEL-TAB-SS 
s-  *  CAN  BE  SET  TO  ANYTHING  OTHER  THAN  ZERO 
PERFORM  SRD-PROCESSOR . 

IF  SEL-TAB-SS  =  SZERO 

MOVE  N-13  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR 
GO  TO  SELSG-CHECK-SF. 

MOVE  RF'T-ST ART  TO  RPT-SS. 

MOVE  SPEC- 1 NSP-LATC- INDEX  TO  L.ATC- INDEX . 

MOVE  SPACE  TO  6DA— WDC. 

SELSG-CHECK-SF . 

MOVE  SOO-SF-OFFSET  TO  SOO-SS. 

IF  RPT- I D-PR I NT-CLASS  ( RPT-ID-SF-SS )  =  TWO 
GO  TO  SELSG-ACCUM. 

MOVE  F  TO  SEL-D-EF-RPT-ID. 

SELSG-OUTPUT-SEL-DET-EF. 

MOVE  SEL-T AB-KEY- 1 -5  (AFSC-SS)  TO  SEL-D-EF-AFSC. 

MOVE  60A-WUC  TO 
TOKEN- 1-5 

SEL-D-EF-PR I NT-WUC . 

MOVE  MANHOURS  TO  SEL-D-EF-MANMRS. 

MOVE  6DA-UNITS  TO  SEL-D-EF-UNITS. 

MOVE  TOKEN- 1-5  TO  SEL-D-EF-PSEUDO-WUC. 

WRITE  SELECTION-RECORD  FROM  SELECT-OET A I L-EF . 
SELSG-ACCUM. 

ADD  ONE  TO  SOO-COUNT  (SOO-SS). 

ADD  MANHOURS  TO  SOO-MANHRS  ( SOO-SS ) . 
SELSG-OUTPUT-SEL-DET-D. 

PERFORM  OUTPUT-SELECT— DET A I L-D . 

GO  TO  SELSG-EXIT. 

SELSG-OUTPUT-GARBAGE-UN I TS . 

DISPLAY  GARBAGE-WARNING  6DA— RECORD  "SUFPT-GEN  UNITS", 
MOVE  N— 15  TO  RE JEC1 — REASON. 

MOVE  ONE  TO  GARBAGE-FLAG. 

PERFORM  REJECT-PROCESSOR . 

GO  TO  SELSG-EXIT. 


LINE  41310  REMOVED. 
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41460  SELSG-EXIT, 

41470  EXIT. 

4 1480  * 

41490  * 

41500  SELECT-TCTO  SECTION. 

41510  * 

41520  * 

41530  SELT-START. 

41540  IF  RPT- ID-PRINT-CLASS  (RPT-ID-SG-SS)  =  TWO 

41550  GO  TO  SELT- ACCOM. 

41560  MOVE  6DA-TCT0-N0  TO  SEL-D-G-TCTO-NO. 

41570  MOVE  SEL-T AB-KEY- 1 -5  (AFSC-SS)  TO  SEL-D-G-AFSC. 

41580  MOVE  MANHOURS  TO  SEL-D-G-MANHRS. 

41590  IF  6DA— UNITS  NOT  NUMERIC 

41600  DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  TCTO-UNITS" 

41610  MOVE  N-15  TO  REJECT-REASON 

41620  MOVE  ONE  TO  GARBAGE-FLAG 

41630  PERFORM  REJECT-PROCESSOR 

41640  GO  TO  SELT-EXIT. 

41650  MOVE  6DA-UNITS  TO  SEL-D-G-UN ITS. 

41660  WRITE  SELECTION-RECORD  FROM  SELECT-DET A I L-G . 

41670  SELT-ACCUM. 

41680  ADD  ONE  TO  SOO-COUNT  ( S00-SG-0FF3ET ) . 

4 1 690  ADD  MANHOURS  TO  SOO-MANHRS  ( SOO-SG-OFFSET ) . 

41700  SELT-EXIT. 

41710  EXIT. 

41720  * 

41730  ■* 

4 1 740  SELECT-CANN I BAL I Z AT I ON  SECT I ON . 

41750  * 

41760  * 

41770  SELC-START. 

41780  IF  RPT- ID-PRINT-CLASS  ( RPT-ID-SH-SS )  =  TWO 

41790  GO  TO  SELC-ACCUM. 

41800  MOVE  SEL-T  AB-KEY- 1 -5  (AFSC-SS)  TO  SEL-D-H-AFSC. 

41810  MOVE  6DA-WUC  TO 

4 1 320  SEL-D-H-PR I NT-WUC 

41830  TOKEN- 1-5. 

41350  MOVE  TOKEN- 1-5  TO  SEL-D-H-PSEUDO-WUC. 

41860  MOVE  MANHOURS  TO  SEL-D-H-MANHRS. 

41870  IF  6DA— UNITS  NOT  NUMERIC 

41830  DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  CANNIBAL-UN 

41390  MOVE  N-15  TO  REJECT-REASON 

41900  MOVE  ONE  TO  GARBAGE-FLAG 

41910  PERFORM  REJECT-PROCESSOR 

41920  GO  TO  SELC-EXIT. 

41930  MOVE  6DA-UNITS  TO  SEL-D-H-UNITS. 

41940  IF  6DA-ATC  =  T 

41950  MOVE  R  TO  SEL-D-H-RI 

41960  ELSE 

41970  MOVE  I  TO  SEL-D-H-RI. 

41980  WRITE  SELECTION-RECORD  FROM  SELECT-DET A I L-H. 

41990  SELC-ACCUM. 


LINE  41840  REMOVED. 

FIGURE  G-l .  JG05A/CDEP/CSTAR/P2.C 
(UNCOMPILED  VERSION  CONT'D) 


G-85 


42000 

42010 

42020 

42030 

42040 

42050 

42060 

42070 

42030 

42090 

42100 

42110 

42120 

42130 

42140 

42150 

42160 

42170 

42130 

42190 

42200 

42210 

42220 

42230 

42240 

42250 

42260 

42270 

422S0 

42290 

42300 

42310 

42320 

42330 

42340 

42350 

42360 

42370 

42330 

42390 

42400 

42410 

42420 

42430 

42440 

42450 

42460 

42470 

42480 

42490 

42500 

42510 

42520 


ADD  ONE  TO  SOO-COUNT  ( SOO-SH-OFFSET ) . 

ADD  MANHOURS  TO  SOO-MANHRS  (SOO-SH-OFFSET). 
SELC-EXIT. 

EXIT. 

* 

* 

SELECT— WDC- AND— RF'T  SECT  I  ON . 

■s 

SELWDC-ST  ART. 

MOVE  SZERO  TO  RPT-SS. 

MOVE  SEL-T AB-L I NK 1  (SRD-SS)  TO  SEL-TAB-SS. 
SELWDC— SRD-RPT— LOOP. 

IF  SEL-TAB-SS  =  SZERO 
IF  RPT-SS  =  SZERO 

MOVE  TEN  TO  REJECT-REASON 
00  TO  SELWDC-REJECT 
ELSE 

MOVE  N-13  TO  REJECT-REASON 
GO  TO  SELWDC-REJECT. 

MOVE  SEL-T  AB-L I NK 1  (SEL-TAB-SS)  TO  SEL-T AB-SS2 . 
MOVE  SEL-T  AB-L I NK 1  ( SEL-T AB-SS2 )  TO  SEL-TAB-SS3. 
SELWBC-WBC— LOOP . 

IF  SEL-T AB-SS3  =  SZERO 

GO  TO  SEL WDC-SET-NE XT-RPT-L I NK . 

IF  6DA-WDC  NOT  =  SEL-T AB-KEY-1  ( SEL-T AB-SS3 ) 

GO  TO  SELWDC-SET-NEXT-WDC. 

MOVE  SEL-T AB-SS2  TO  RPT-SS. 

IF  6DA-REC- I D-NUM  =  THREE- X 

IF  SEi_-T AB-KEY- 1  -NUM  (RPT-SS)  = 

RPT- ID-REPORT-CLASS  ( RF'T- 1 D-QFF-EQ-S3 ) 

GO  TO  SELWDC-EXIT 
ELSE 

GO  TO  SELWDC-SET-NEXT-WDC. 

IF  SEL-T  AB-KEY- 1 -NUM  (RPT-SS)  NOT  = 

RPT- ID-REPORT-CLASS  <  RPT-ID-OFF-EQ-SS ) 

GO  TO  SELWDC-EXIT 
ELSE 

GO  TO  SELWDC-SET-NEXT-WDC. 
SELWDC-SET-NEXT-WDC . 

MOVE  SEL-T AB-L I NK2  ( SEL-T A5-SS3 )  TO  SEL-T AB-SS3 . 
GO  TO  SEL WDC-WDC— LOOP . 

SEL WDC-SET-NEXT-RPT-L I NK . 

MOVE  SEL-T  AB-L I NK2  (SEL-TAB-SS)  TO  SEL-TAB-SS. 

GO  TO  SELWBC-SRD— RPT-LOOF' . 

SELWDC-REJECT. 

PERFORM  REJECT-PROCESSOR . 

GO  TO  SELWDC-EXIT. 

SELWDC-EXIT. 

EXIT. 

«• 

* 

SELECT-3-D I G I T-WUC  SECT I ON . 
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42530 
42540 
42550 
42560 
4257 0 
42530 
42590 
42600 
42610 
•1 2620 
42630 
42640 
42650 
42660 
42670 
42630 
42690 
42700 
42710 
42720 
42730 
42740 
42750 
42760 
42770 
42730 
42790 
42300 
42310 
42320 
42330 
42340 
42350 
42360 
42370 
42880 
42390 
42900 
42910 
42920 
42930 
42940 
42950 
42960 
42970 
42930 
42990 
43000 
43010 
43020 
43030 
43040 
43050 


iTC-UNITS" 


SEL3D— START . 

MOVE  3D I 3-START  TO  SEL-TAB-SS. 

PERFORM  BUMP-SEL-T AB—SS 

UNTIL  SEL-TAB-SS  =  SZERO 

OR  6B A— WUG— 1 —3  =  SEL-T AB-KEY- 1 -3  < SEL-TAB-SS) 
IF  SEL-TAB-SS  =  SZERO 

MOVE  N-ll  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR 
00  TO  SEL3D-EXIT. 

SEL3B-EXIT. 

EXIT. 

■St¬ 

'S- 

SELECT-LCOM- ATC- ANO-UN I TS  SECT I ON . 


SELAU-START. 

MOVE  SZERO  TO  LATC- INDEX. 

IF  6DA-ATC  =  E 

MOVE  N-12  TO  REJECT-REASON 
PERFORM  REJECT-PROCESSOR 
GO  TO  SELAU-EX IT. 

IF  6DA-UNITS  NOT  NUMERIC 

DISPLAY  GARBAGE-WARNING  6DA-REC0RD 
MOVE  N-15  TO  REJECT-REASON 
MOVE  ONE  TO  GARBAGE-FLAG 
PERFORM  REJECT-PROCESSOR 
GO  TO  SELAU-EX IT. 

MOVE  6DA-UNITS  TO  UNITS. 

PERFORM  DUMMY 

VARYING  ATC-TAB-SS  FROM  ATC-TAB-MAX 
BY  MIN-ONE 

UNTIL  ATC-TAB-SS  =  SZERO 

OR  6DA-ATC  =  ATC-TAB-ATC  (ATC-TAB-SS) 

IF  ATC-TAB-SS  =  SZERO 

GO  TO  SELAU-GARBAGE-ATC. 

IF  6DA-REC- I D  =  THREE-X 

GO  TO  SELAU-CHECK-OFF-EQUIP. 

IF  ATC-T A3-0N-L I NK  (ATC-TAB-SS)  =  N-100 
GO  TO  SELAU-GARBAGE-ATC. 

IF  ATC-TAB-ON-LINK  (ATC-TAB-SS)  = 

MOVE  ATC-T AB— ON— EQ— LATC— I NDEX 
LATC- INDEX 

GO  TO  SELAU-CHECK-UNIT-AOJUST. 

PERFORM  DUMMY 

VARYING  HM-TAB-SS  FROM  ATC-TAB-ON-LINK  (ATC-TAB-SS) 
BY  ONE 

UNTIL  6DA-H0W-MAL  =  HM-TAB-HOW-MAL  (HM-TAB-SS) 

OR  HM-TAB-HOW-MAL  (HM-TAB-SS)  = 

CONST ANT-OF-ALL . 

MOVE  HM-T AB-LATC- I NDEX  (HM-TAB-SS)  TO  LATC- I NDEX. 


SZEKO 
( ATC-T  AB-‘: 


S)  TO 
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43060  GO  TO  SELAU-CHECK-UN IT- ADJUST. 

43070  SELAU-CHECK-OFF-EQU 1 P . 

430S0  IF  ATC-TAB-OFF-LINK  (ATC-TAB-SS)  NOT  =  SZERO 

43090  60  TO  SELAU-GARBAGE-ATC. 

43100  MOVE  ATC-TAB-OFF-EO-LATC- INDEX  (ATC-TAB-SS)  TO 

43110  LATC- INDEX. 

43120  GO  TO  SELAU-CHECK-UN IT- ADJUST. 

43 1 30  SELAU-CHECK-UN I T-AD JUST . 

43140  IF  6DA-ATC  =  P  OR  M 

43150  MULTIPLY  FIVE  BY  IJNITS-VALUE  GIVING  UNITS-COMP 

43160  ADD  FIVE  TO  UNITS-COMP 

43170  DIVIDE  TEN  INTO  UNITS-COMP  GIVING  UNITS-VALUE 

43 ISO  GO  TO  SELAIJ-EXIT. 

43190  IF  6DA-ATC  =  Q  OR  N 

43200  DIVIDE  TWO  INTO  UNITS-VALUE 

43210  GO  TO  SELAU-EXIT. 

43220  GO  TO  SELAU-EXIT. 

43230  SELAU-GARBAGE-ATC . 

43240  DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  ATC". 

43250  MOVE  N-15  TO  REJECT-REASON. 

43260  MOVE  ONE  TO  GARBAGE-FLAG. 

43270  PERFORM  REJECT-PROCESSOR. 

43230  GO  TO  SELAU-EXIT. 

43290  SEL AU-E  X I T . 

43300  EXIT. 

43310  # 

43320  * 

43330  SELECT-COMBINATION  SECTION, 

433*0  # 

43350  * 

43360  SELCGM-START. 

43370  MOVE  TIME-1  TO  COMB I -STOP-TIME. 

433S0  MOVE  TIME-2  TO  COMB I -START-TIME. 

43390  MOVE  6DA-WUC  TO  TOKEN- 1-5. 

43410  MOVE  TOKEN- 1-5  TO  COMBI-WUC. 

43420  IF  C0HP-P0S-Q3-T AB-SS  =  ONE 

43430  MOVE  6DA-COMP-POS  TO  COMBI-COMF’-POS 

43440  ELSE 

43450  MOVE  SPACE  TO  COMBI-COMP-POS. 

43460  MOVE  LATC-INDEX  TO  COMB I -LATC- INDEX. 

43470  MOVE  6DA-JCN  TO  COMBI-JCN. 

43480  MOVE  6DA— EG— ID— NO  TO  COMBI— EQ— J 0 — NO . 

43490  MOVE  MANHOURS  TO  COMB I -MANHRS - 

43500  MOVE  SEL-T AB-L I NK 1  (AFSC-SS)  TO  COMB I -AFSC- INDEX. 

43510  MOVE  UNITS  TO  COMB I -UN ITS. 

43520  MOVE  6DA-WDC  TO  COMBI-WDC. 

43530  MOVE  6D A— CREWS I ZE  TO  COMB I -CREWS I ZE. 

43540  MOVE  SEL-T AB-KEY— 3  (RPT-SS)  TO  COMBI -RPT- ID- 1 . 

43550  MOVE  SEL-T  AB-KEY'— 4  ( RPT-SS  >  TO  COMB  I -RPT- ID-2. 

43560  WR I TE  COMBI MAT I ON-RECOPD . 

43570  IF  6DA-WUC-1-2  =  WUC-0*t 

435S0  MOVE  SOO-COMB I -04-OFFSET  TO  S00-S3 

43590  ELSE 


LINE  43400  REMOVED. 
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43600  MOVE  SCO- COMB I -OFFSET  TO  300-S3 . 

43610  ADD  ONE  TO  SOO-COUNT  (SOO-SS). 

43620  ADD  MANHOURS  TO  SOO-MANHRS  (SOO-SS). 

43621  (WRITE  NEU-REC-KNT.1 
43630  SELCOM-EXIT. 

43640  EXIT. 

43650  * 

43660  * 

43670  OUTPIJT-SELECT-DETAIL-D  SECTION. 

43680  * 

43690  * 


43700 

43710 

43720 

43730 

43740 

43750 

43760 

43770 

43780 

43790 

43300 

43810 

43820 

43830 

43340 


OSDD-START. 

MOVE  SEL-T AB-KEY- 1 -5  (AFSC-SS)  TO 
MOVE  MANHOURS  TO  SEL-B-D-M ANHRS . 


SEL-D-D-AFSC 


MOVE  ONE  TO  ROW- INDEX. 

IF  6DA-REC-ID  =  THREE- X 
ADD  ONE  TO  ROW- INDEX. 

IF  SRD-1  =  X 

ADD  TWO  TO  ROW- INDEX. 

MOVE  ROW-INDEX  TO  SEL-D-D-RGW- INDEX. 

IF  6DA-WUC— 1— 2  <  WUC— 09 

MOVE  6DA-WUC-2-NUM  TO  SEL-D-D-COL- INDEX 
ELSE 

IF  6DA-WUC-1-2  =  WUC— 09 

MOVE  EIGHT  TO  SEL-D-D-COL- INDEX 
ELSE 


43850  MOVE  NINE  TO  SEL-D-D-COL- I NDEX . 

43860  WRITE  SELECTION-RECORD  FROM  SELECT— DET A I L-D . 

43870  ADD  ONE  TO  SOO-COUNT  (SOO-SD-OFFSET) . 

43380  ADD  MANHOURS  TO  SOO-MANHRS  ( SOO-SD-OFFSET > . 

43890  OSDD— EXIT . 

43900  EXIT. 

43910  # 

43920  * 

43930  REJECT-PROCESSOR  SECTION. 

43940  * 

43950  * 

43960  RJP-START. 

43970  MOVE  6DA-REC0RD  TO  REJECT-RECORD. 

43980  MOVE  REJECT-REASON  TO  RJ-REASQN. 

43990  ***«*DI SPLAY  "SELECT  REJECT  NO. "  RJ-REASON. 

44000  ADD  SOO-REJECT-OFFSET  REJECT-REASON  GIVING  SOO 

44010  ADD  ONE  TO  SOO-COUNT  (SOO-SS). 

44020  IF  GARBAGE— FLAG  NOT  —  S2ER0 

44030  GO  TO  RJP-EXIT. 

44040  ADD  MANHOURS  TO  SOO-MANHRS  ( SOO-SS ) . 

44050  IF  I GNORE-RE JECTS-FL AG  NOT  -  SZERO 

44060  GO  TO  RJP-EXIT. 

44070  WRITE  REJECT-RECORD. 

44080  RJP-EXIT. 

44090  EXIT. 

44100  * 

44110  * 
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44120 
44130 
44140 
44150 
44 1 60 
44170 
44130 
44190 
44200 
44210 
44220 
44230 
44240 
44250 
44260 
44270 
44230 
44290 
44300 
44310 
44320 
44330 
44340 
44350 
44360 
44370 
44330 
44390 
44400 
44410 
44420 
44430 
44440 
44450 
44460 
44470 
44430 
44490 
44500 
44510 
44520 
44530 
44540 
44550 
44560 
44570 
44530 
44590 
44600 
44610 
44620 
44630 
44640 


I NPUT-ABD6DA  SECT I ON . 


I6DA-START. 

MOVE  SZERO  TO  GARBAGE-FLAG. 

IF  ABD6DA-AT-END  NOT  =  SZERO 
GO  TO  I6DA-EXIT. 

READ  ABD6DA-FILE 
AT  END 

CLOSE  ABD6DA-FILE 

MOVE  ONE  TO  ABD6DA-AT-END 

GO  TO  I6DA-EXIT. 

ADD  ONE  TO  SOO-COUNT  (1). 

*  IF  6DA-JCN  NOT  NUMERIC 

*  DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  JCN" 

*  MOVE  N-15  TO  REJECT-REASON 

*  MOVE  ONE  TO  GARBAGE-FLAG 

*  PERFORM  REJECT-PROCESSOR 

*  GO  TO  I 6D A— START. 

IF  6DA-REC- I D  NOT  NUMERIC 
GO  TO  I 6DA— GARBAGE— ERR. 

GO  TO 

I 6DA-CALC-MANHRS 
I 6DA-ZER0-MANHRS 
I 6DA-CALC-MANHRS 
I 6DA-CALC-MANHRS 
1 6DA- Z  ERO-M ANHRS 
I 6DA-ZER0-MANHRS 
I6DA-ZER0-MANHRS 
DEPENDING  ON  6DA-REC- I D-NUM . 

I 6D A-G ARB AGE-ERR . 

DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  RECID" . 

MOVE  N-15  TO  REJECT-REASON. 

MOVE  ONE  TO  GARBAGE-FLAG. 

PERFORM  REJECT -PROCESSOR. 

GO  TO  I6DA-START. 

I 6D A- Z ERO-M ANHRS . 

MOVE  SZERO  TO 
TIME-1 
TIME-2 
MANHOURS. 

GO  TO  I6DA-EXIT. 

I 6DA-CALC-MANHRS . 

PERFORM  WORKT I ME-MANHRS-CONVERT . 

IF  GARBAGE-FLAG  NOT  =  SZERO 
GO  TO  I6DA-START. 

ADD  MANHOURS  TO  SOO-MANHRS  ( 1 ) . 

I6DA-EXIT. 

EXIT. 


WORKT I ME-MANHRS-CONVERT  SECT I ON . 
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44650 

44660 

44670 

44680 

44690 

44700 

44710 

44720 

44730 

44740 

44750 

44760 

44770 

44780 

44790 

44300 

44810 

44820 

44830 

44840 

44850 

44860 

44870 

44880 

44890 

44900 

44910 

44920 

44930 

44940 

44950 

44960 


-START. 

IF  6DA-ST ART-ST OP— T I MES  HOT  NUMERIC 
GO  TO  WNC-ERR. 

COMPUTE  TIME-1  = 

<  6DA-ST0P-M I NIJTES  ■*  N-1000  /  N-60  + 

6DA-ST0P-HRS  *  N-1000)  /  N-24  +  6D A— ST OP-DAY  *  N-1000. 
COMPUTE  TIME-2  = 

<  6Ei A— START-MINUTES  *  N-1000  /  N-60  + 

6DA-ST ART-HRS  *  N-1000)  /  N-24  +  6DA-ST0P-DAY  *  N-1000. 
IF  TIME-2  >  TIME-1 

SUBTRACT  N-1000  FROM  TIME-2. 

IF  TIME-2  >  TIME-1 

OR  TIME-1  >  (TIME-2  +  N-1000) 

GO  TO  WNC-ERR. 

IF  6DA-MANHRS  NOT  NUMERIC 
MOVE  SZERO  TO  MANHOURS 
GO  TO  WNC-ERR. 

MOVE  6BA-MANHRS  TO  MANHOURS. 

GO  TO  WNC-EX IT. 

■ERR . 

DISPLAY  GARBAGE-WARNING  6DA-REC0RD  "  TIME— MNHR" . 

MOVE  N— 15  TO  REJECT-REASON. 

MOVE  ONE  TO  GARBAGE-FLAG. 

PERFORM  REJECT-PROCESSOR . 

GO  TO  WNC-EX IT. 

-EXIT. 

EXIT. 


*  THIS  CODE  IS  RETRIEVED  BY  A  $  SELECT A  AGAINST  FILE 
r  *  MSMET /CDEP/PGMS/TRANS . W 1 

TRAMSLATE-WUC  SECT I ON . 

r  *  THIS  ROUTINE  TRANSLATES  THE  3RD  THRU  THE  5TH  CHARS  OF  A  WU  ; 

•  &  IN  ACCORDANCE  WITH  THE  VALUE  OF  COMPUTER- ID  (SEE  THE 

r  *  COMMENTS  WITH  THE  TRANSLATION  TABLE  IN  THE  WORKING-STORAGE 

•  *  SECTION).  INPUT  TO  THE  ROUTINE  IS  THE  5  CHAR  WUC  WHICH  HAS 

•  *  BEEN  PLACED  INTO  THE  DAT A-NANE  TOKEN.  OUTPUT  FROM  THE 

r  *  ROUTINE  IS  THE  TRANSLATED  WUC  WHICH  WILL  ALSO  BE  FOUND  IN 

r  *  TOKEN.  THE  ROUTINE  DOES  THIS  BY  REFER I NG  TO  TOKEN  BY  ITS 

■»  MULTIPLY— OCCUR  I  NG  SUBDEFINITION*  TOK*  AND  THE  TOKEN-RELATED 
s.  *  SUBSCRIPT*  TOK-SS*  IN  ADDITION  TO  THOSE  DATA  AREAS  OTHER¬ 
S'  *  WISE  ASSOCIATED  WITH  THE  TRANSLATION  TABLES. 

r 

S’ 

t  *  THIS  CODE  IS  RETRIEVED  BY  A  *  SELECT A  AGAINST  FILE 

•  *  MSMET /CDEP/PGMS/TRANS. W2 

TW-START. 
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. . . . . . . . . . . . . 


PERFORM  TW— JUMP  THRU  Tw-EXITl 
VARYING  TOK-SS  FROM  3  3Y  1 
UNTIL  TOK-SS  >  5. 

GO  TO  TW-EXIT. 

TW- JUMP . 

GO  TO 

TW-TRANS-CDC-2-S0RT 
TW-TRANS-HW-2— SORT 
TW— TRANS— SORT— 2— HW 
TW-TRANS-SORT— 2-CDC 
DEPENDING  ON  COMPUTER-ID, 

DISPLAY  "**■«•*■*  " . 

DISPLAY  "■*  INVALID  COMPUTER- ID  VALUE  =“  COMPUTER- ID, 

DISPLAY  "*  PROGRAM  HALTED". 

DISPLAY  "  *■*■*•&* 

STOP  RUN. 

TW-TRANS-CDC-2-S0RT . 

MOVE  ZERO  TO  TRANSL-SS1-CDC. 

MOVE  TOK  (TOK-SS)  TO 

TRANSL-SS 1 — CDC— CHAR . 

ADD  1  TO  TRANSL-SS 1 -CDC. 

MOVE  TRANS-CDC-2-S0RT  ( TRANSL-SS 1 -CDC)  TO 
TRANSL-SS 1 -CDC-CHAR . 

IF  TRANSL-SS 1 -CDC-CHAR  NOT  =  EQUALS I ON 

MOVE  TRANSL-SS 1 -CDC-CHAR  TO  TOK  (TOK-SS). 

GO  TO  TW-EXIT1. 

TW-TRANS-HW-2-S0RT . 

MOVE  ZERO  TO  TRANSL-SS2-HW. 

MOVE  TOK  (TOK-SS)  TO 

TRANSL-SS2-HW-CHAR . 

ADD  1  TO  TRANSL-SS2-HW. 

MOVE  TRANS— HW-2-S0RT  ( TRANSL-SS2-HW )  TO 
TRANSL— SS2-HW-CHAR . 

IF  TRANSL— SS2-HW-CHAR  NOT  =  EQUALS I GN 

MOVE  TRANSL— SS2-HW-CHAR  TO  TOK  (TOK-SS). 

GO  TO  TW-EXIT1. 

TW-TRANS-SORT— 2 -HW. 

MOVE  ZERO  TO  TRANSL-SS2-HW . 

MOVE  TOK  (TOK-SS)  TO 

TR ANSL-SS2-H W-CH AR . 

ADD  1  TO  TRANSL— SS2-HW. 

MOVE  TRANS-SORT— 2-HW  <  TRANSL— SS2-HW )  TO 
TR ANSL-SS2-HW-CH AR . 

It-  TRANSL— SS2-HW-CHAR  NOT  =  EQUALSIGN 

MOVE  TRANSL-SS2-HW-CHAR  TO  TOK  (TOK-SS). 

GO  TO  TW-EXIT1. 

TW-TRANS-SORT -2-CDC . 

MOVE  ZERO  TO  TRANSL-SS 1 -CDC. 

MOVE  TOK  (TOK-SS)  TO 

TRANSL-SS I -CDC-CHAR . 

ADD  1  TO  TRANSL-SS 1 -CDC. 

MOVE  TRANS-SORT— 2-CDC  (TRANSL-SS! -CDC)  TO 
TRANSL— SSi -CDC-CHAR. 
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IF  TRANSL— SSI -CDC-CHAR  NOT  =  EQUALS I ON 
MOVE  TRANSL— SSI — CDC-CHAR  TO  TOK  (TC 
GO  TO  TN-EXIT1. 

TW-EXIT1. 

EX  IT. 

TW— EX  IT. 

EXIT. 

* 

a 

44990  * 

45000  * 

45010  GENERATE-SOO  SECTION. 

45020  * 

45030  * 

45040  GSO— START. 

45050  PERFORM  GENERATE— SOO-DET AIL 

45060  VARYING  SOO-SS  FROM  ONE  BY  ONE 

45070  UNTIL  SOO-SS  >  SOO-MAX. 

45080  MOVE  SOO-FOOTNOTE  TO  SOO-OUT. 

45090  MOVE  THREE  TO  SOO-CC. 

45100  PERFORM  OUTPUT-SOO. 

45110  GSO— EXIT. 

45120  EXIT. 

45130  * 

45140  * 

45150  GENERATE-SOO-DET AIL  SECTION. 

45 1 60  * 

45170  * 


45180 

GSOD-START . 

45190 

GO  TO 

45200 

GSOD-START- I NPUT-LOG 

45210 

GSOD-ST ART-REJECT-LOG 

45220 

GSOD— LOG— D£ TAIL 

45230 

GSOD-LQG-DET  A I L 

45240 

GSOE— LOG— l*ET  AIL 

45250 

GSOD— LOG-DETAIL 

45260 

GSOD— LOO— DET AIL 

45270 

GSOD— LOG— DET AIL 

452S0 

GSOD-LGG-DET  A I L 

45290 

GSOD-LGG— DETAIL 

45300 

GSOD-LOG-DET A I L 

45310 

GSOD-LGG-DET  AIL 

45320 

GSOD-LGG-DET A I L 

45330 

GSOD— LOG— DET AIL 

45340 

GSOD-LOG-DET  AIL 

45350 

GSOD-LOG-DET  AIL 

45360 

GSOD-LOG-DET  AIL 

45370 

GSOD-START— SRPTS-LOG 

45380 

GSOD— LOG— DET AIL 

45390 

GSOD— LOG— DET AIL 

45400 

GSOD-LOG-DET A I L 

45410 

GSOD-LOG-DET  AIL 

45420 

GSOD-LOG-DET  AIL 
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430  GSOD-LOG-DET  AIL 

4544O  GSOD— LOG— £*ETAIL 

45450  GSOD— START— CERT S— LOG 

454-60  GSOD— LOG— BET  AIL 

45470  DEPENDING  ON  SOO-SS. 

4545:0  GSOD— ST  ART—  I NPUT-LOG . 

45490  MOVE  SOO— PRINT— INPUT  TO  SOO—SH— DIRECTION. 

45500  GO  TO  GSOD— LuG— BETA I L . 

455 1 0  GSOB-ST ART-REJECT-LOG . 

45520  MOVE  SOO-PR I NT-OUTPUT  TO  SOO-SH-DIEECTION. 

45530  MOVE  SOO— SUBHEADER  TO  SOO-OUT. 

45540  MOVE  THREE  TO  SOO-CC. 

45550  PERFORM  GUTPUT-SOO. 

45560  MOVE  SOO— REJECT— TITLE  TO  SOO— OUT. 

45570  MOVE  TWO  TO  SOO— CC. 

45580  PERFORM  OUTPUT-SOO. 

45590  GO  TO  GSOD— LOG— DETAIL. 

45600  GSOD— START— SRPTS— LOG. 

45610  MOVE  SOO— SELECTION  "T— TITLE  TO  SOO— OUT. 

45620  MOVE  TWO  TO  SOO-tX. 

45630  PERFORM  OUTPUT-SOO. 

45640  GO  TO  GSOD-LOG— BET AIL. 

45650  GSOD-ST ART— CRPT 3-LOG . 

456-6-0  MOVE  SOO— COMBINATION— RPT— TITLE  TO  SOO— OUT. 

45670  MOVE  TWO  TO  SOO-CC. 

45630  PERFORM  OUTPUT-SOO . 

456-90  GO  TO  GSOD-LOG-DET AIL. 

45700  GSOD-LOG-DET  AIL. 

45710  MOVE  SOO-TAB-TITLE  (SOO-SS)  TO  300-D-TITLS. 

45720  MOVE  SOO-T AB-COUNT-FLAG  (SOO-SS)  TO  SOO -D-COUNT -FLAG. 

45730  MOVE  SOO-COUNT  (SOO-SS)  TO  SOO-D-COUNT. 

45740  MOVE  SOO-MANHRS  (SOO-SS)  TO  DISPLAY-UNITS. 

45750  MOVE  DISPLAY- 10THS  TO  SOO-D-MANHRS- 

4576-0  MOVE  SOO— DETAIL  Tu  SoO— OUT. 

45770  MOVE  ONE  TO  SOO-CC. 

45730  PERFORM  OUTPUT-SOO. 

45790  GO  TO  GSOD-EXIT. 

45300  GSOD— E X I T . 

45310  EXIT. 


45820 

* 

45330 

•a 

45840 

OUTF 

UT-SOO 

SECTION. 

45850 

•a 

THE  APP 

AR 

ENT  I  NEi 

-DvC-0 

* 

AFTER; 

AD 

V ANC I NG 

/  0 

KNuwuslD 

OT. 

S  (HE  ri 

45380 

-a 

GENERA! 

2  GUTP1 

45390 

■a 

e-ECAUSE 

T 

HE  GCOS 

45900 

-a- 

BEFORE 

PR 

3 NT IMG. 

45910 

* 

AG A I NS 

i 

THE  -JOB 

45920 

SHOULDN 

T 

CAUSE  ! 

45930 

a 

45940 

oso- 

’S  i  hR  i  • 

45950 

IF  >  L I N 

CNT  *■  S' 

j  HCLwE.  ^ 


SED  COBOL 


PR I NTL I NES  BO  * H  uET  COUN s  a* 
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45960 
45970 
45980 
45990 
46000 
46010 
46020 
46030 
46040 
46050 
46060 
46070 
46080 
46090 
46100 
46 1 1 0 
46.120 
46130 
46140 
46150 
46160 
46 170 
4c- 1 80 
46190 
46200 
46210 
46220 
46230 
46240 
46250 
46260 
46270 
46280 
46290 
46300 
46310 
46320 
46330 
46340 
46350 
46360 
46370 
46380 
46390 
46400 
464 1 0 
46420 
46430 
46440 
46450 
46460 
46470 
46480 


WRITE  SOO-REC  BEFORE  ADVANCING  TOP 

MOVE  SPACE  TO  SOO-REC 

WRITE  SOO-REC  BEFORE  ADVANCING  THREE 

MOVE  CDEP-VERS I  ON  TO  SOO-HEADO-VERSIOM 

MOVE  SOO-HEADER-O  TO  SOO-REC 

WRITE  SOO-REC  BEFORE  ADVANCING  ONE 

ADD  ONE  PAGE-CNT  GIVING 

PAGE-CNT  SOO-H-PAGE-CNT 
MOVE  SOO-HEADER  TO  SOO-REC 
WRITE  SOO-REC  BEFORE  ADVANCING  ONE 
MOVE  REPORT-GRf 'UP-TITLE  TO  S00-HEAD-2-T I TLE 
MOVE  S00-HEADER-2  TO  SOO-REC 
WRITE  SOO-REC  BEFORE  ADVANCING  TWO 
MOVE  SOO-SUBHEADER  TO  SOO-REC 
WRITE  SOO-REC  BEFORE  ADVANCING  TWO 
MOVE  NINE  TO  LINE-CNT 
ADD  FOUR  TO  SOO-CNT 
ELSE 

WRITE  SOO-REC  BEFORE  ADVANCING  300-CC 
ADD  SOO-CC  TO  LINE-CNT. 

MOVE  SOO-OUT  TO  SOO-REC. 

ADD  ONE  TO  SOO-CNT. 

OSO-EXIT. 

EXIT. 

/ 

DUMP-SEL-T ABLE  SECT I ON . 

*  THIS  SECTION  DISPLAYS  THE  ENTIRE  CONTENTS  OF  THE 

4  SELECTION  TABLE  THAT  WERE  USED  UP  BY  A  RUN  OF 

*  THE  PROGRAM. 

DST-START. 

DISPLAY  "SELECTION  TABLE  .«JMP". 

MOVE  3DIG-START  TO  DISPLAY -UNITS. 

DISPLAY  " 3D I G-ST ART= "  DISPLAY-UNITS. 

MOVE  AFSC-START  TO  DISPLAY-UNITS. 

DISPLAY  " AFSC-ST ART = "  DISPLAY-UNITS. 

MOVE  ASSIGN-CODE-START  TO  DISPLAY-UNITS. 

D I SPLAY  " ASS I GN-C0DE-3T ART* "  0 I SPLAY-UN I TS . 

MOVE  LAB-CAT-START  TO  DISPLAY-UNITS. 

DISPLAY  " LAB-CAT-ST ART  = "  DISPLAY-UNITS. 

MOVE  MAJCOM-ST ART  TO  DISPLAY-UNITS. 

D I SPLAY  " MAJCOM-ST ART = "  D I SPLAY-UN I TS . 

MOVE  RPT-ST ART  TO  DISPLAY-UNITS. 

DISPLAY  " RPT-ST ART="  DISPLAY-UNITS. 

MOVE  SRD-START  TO  DISPLAY-UNITS. 

DISPLAY  "SRD-START="  DISPLAY-UNITS. 

MOVE  TYPE-MAINT-START  TO  DISPLAY-UNITS. 

DISPLAY  " TYPE-MA I NT-ST ART = "  DISPLAY-UNITS. 

MOVE  WCTR-START  TO  DISPLAY-UNITS. 

DISPLAY  " WCTR-ST ART = "  DISPLAY-UNITS. 

DISPLAY  " 

D I SPLAY  " ENTRY# ...  KEY ... L I NK 1 ... L I NK2 " . 

PERFORM  D3T-SH0W-ENTRY 

VARYING  SEL-TAB-SS  FROM  ONE  BY  ONE 
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46490  UNTIL  SEL-TAB-SS  NOT  <  SEL-T AB- A V A I L 

46500  GO  TO  DST-EXIT. 

46510  #■ 

46520  DST-SHOW— ENTRY . 

46530  MOVE  SEL-TAB-SS  TO  D-S-T-E-ENTRY-NO. 

46540  MOVE  SEL-TAB-KEY  (SEL-TAB-SS)  TO  D-S-T-E 

46550  MOVE  SEL-TAB-L INK1  (SEL-TAB-SS)  TO  O-S-T 

46560  MOVE  SEL-TAB-L I NK2  (SEL-TAB-SS)  TO  D-S-T 

46570  IF  D-S-T-E-KEY-3  =  HIGH-VALUE 

465S0  MOVE  QUOTE  TO  D-S-T-E-KEY-3. 

46590  IF  D-S-T-E-KEY-4  =  HIGH-VALUE 

46600  MOVE  QUOTE  TO  D-S-T-E-KEY-4. 

46610  DISPLAY  DUMP-SEL-TAB-ENTRY . 

46620  DST-EXIT. 

46630  EXIT. 
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E-LINK. I 
E-LIMK2 
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00010  IDENTIFICATION  DIVISION. 

00020  PROGRAM- ID.  SELRPT . 

00030  AUTHOR.  AFMSMET . 

00040  INSTALLATION.  W-PAFB,  OH. 

00050  DATE-COMPILED. 

00060  SECURITY-  UNCLASSIFIED. 

00070  ENVIRONMENT  DIVISION. 

00080  CONFIGURATION  SECTION. 

00090  INPUT-OUTPUT  SECTION. 

00100  FILE-CONTROL. 

00110  SELECT  RPT-FIL  ASSIGN  TO  Tl. 

00120  SELECT  ERR-FIL  ASSIGN  TO  L2  FOR  LISTING. 

00130  SELECT  QUT-FIL  ASSIGN  TO  LI  FOR  LISTING. 

00140  SELECT  B4-FIL  ASSIGN  TO  T2. 

00150  I-O-CONTROL. 

00160  APPLY  SYSTEM  STANDARD  ON 

00170  RPT-FIL  ERR-FIL  OUT-FIL  B4-FIL. 

00130  DATA  DIVISION. 

00190  FILE  SECTION. 

00200  FD  RPT-FIL 

00210  LABEL  RECORD  STANDARD 

00220  DATA  RECORD  IS  RPT-REC. 


00230 

01 

RPT-REC. . 

00240 

03  RPT-CODE 

PIC 

A. 

00250 

03  TCTO. 

00260 

05  WUC-1-2 

PIC 

XX. 

00270 

05  PSEUDQ-WUC 

PIC 

X (5) . 

00280 

03  WKCTR 

PIC 

X (5) . 

00290 

03  AFSC  REDEFINES  WKCTR 

PIC 

X(5) . 

00300 

03  MANHOURS 

PIC 

9999. 

00310 

03  UNITS-PROD 

PIC 

99. 

00320 

03  COL- INDEX 

PIC 

9. 

00330 

03  ROW- INDEX 

PIC 

9. 

00340 

03  R- I -FLAG 

PIC 

X. 

00350 

03  REAL-WUC 

PIC 

X(5) . 

00360 

03  FILLER 

PIC 

X  <  18) 

00370 

01 

HEADER-RECORD. 

00330 

03  KILLER 

PIC 

X. 

00390 

03  HEADER-KEY-2 

PIC 

X  <  12) 

00400 

03  OPTION 

PIC 

9. 

00410 

03  REPORT-GROUP-TITLE. 

00420 

05  SORTIE-FLYHRS 

PIC 

9<6). 

00430 

05  SF-TITLE 

PIC 

X  <7) . 

00440 

05  FILLER 

PIC 

X  ( 18) 

00450 

FD 

OUT-FIL 

00460  LABEL  RECORD  STANDARD 

00470  DATA  RECORD  IS  OUT. 

00480  01  OUT  PIC  X  < 132) . 
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00490 

00500 

00510 

FD 

ERR-FIL 

LABEL  RECORD  STANDARD 

DATA  RECORD  IS  ERR. 

00520 

01 

ERR 

PIC  X  < 66  > . 

00530 

00540 

00550 

FD 

B4-FIL 

LABEL  RECORD  STANDARD 

DATA  RECORD  IS  B4-REC. 

00560 

01 

B4-REC. 

00570 

00580 

03  FILLER 

03  WUC-NAME. 

PIC  X ( 9) . 

00590 

05  B4-PSEUD0-WUC 

PIC  X<5>. 

00600 

05  B4-WUC-TITLE 

PIC  X ( 19) . 

00610 

00620 

/ 

03  FILLER 

PIC  X  ( 47 ) . 

00630 

00640 

00650 

WORKING-STORAGE  SECTION. 

«■ 

* 

00660 

00670 

01 

* 

CDEP- VERS I ON 

PIC  X(10)  VALUE  "1.1". 

00680 

01 

IN-COUNT 

PIC  9(10)  COMP-1  VALUE  0. 

00690 

01 

ERR-COUNT 

PIC  9999  COMP-1  VALUE  0. 

00700 

01 

ERR-OUT. 

00710 

03  ERR-REASON 

PIC  XXXX. 

00720 

03  FILLER 

PIC  X  VALUE 

00730 

03  ERR-DETAIL 

PIC  X ( 45 ) . 

00740 

03  FILLER 

PIC  X  (5)  VALUE  "-CNT=". 

00750 

03  ERR-CNT 

PIC  Z<9)9. 

00760 

01 

ERR-TOP. 

00770 

03  FILLER 

PIC  X (39)  VALUE 

00780 

"***  SELECTION  REPORT 

PROCESSING  LOG  ***" . 

00790 

01 

ERR- VERS I GN-MSG . 

00800 

03  FILLER 

PIC  XXXX  VALUE  "***  ". 

00S10 

03  FILLER 

PIC  X(29)  VALUE 

00820 

"CDEP  STANDARD  H. I.S. 

VERSION  ". 

00830 

03  ERR-V-M-VERS I ON 

PIC  X(10). 

00840 

01 

ERR-LIMIT-MSG. 

00S50 

03  FILLER 

PIC  X(37)  VALUE 

00860 

00870 

008S0 

* 

"MORE  THAN  100  ERRORS. 

RU*  TERMINATED.". 

00890 

01 

A-1HDR. 

00900 

03  FILLER 

PIC  X < 12)  VALUE  SPACES. 

00910 

03  FILLER 

PIC  X (8)  VALUE  "REPORT  S". 

00920 

03  ARPT-TYPE 

PIC  X. 

00930 

03  FILLER 

PIC  X (28)  VALUE  SPACES. 

00940 

03  FILLER 

PIC  X (31 )  VALUE 

00950 

"MBC  INDIRECT  MAN-HOURS  REPORTED". 

00960 

03  FILLER 

PIC  X<40)  VALUE  SPACES. 

00970 

03  FILLER 

PIC  X (6)  VALUE  "PAGE  ". 

00980 

03  APAGE-NBR 

PIC  1119. 

00990 

01 

A-2HDR. 
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OlOOO 

03  FILLER 

PIC 

X (42)  VALUE  SPACES. 

OlOlO 

03  FILLER 

PIC 

X(46)  VALUE 

01020 

'•****  WARNING:  NOT  REPORTED 

AGAINST  AN  SRD  ****". 

01030 

01 

A-3HDR. 

01040 

03  FILLER 

PIC 

X<26)  VALUE  SPACES. 

01050 

03  FILLER 

PIC 

X(49>  VALUE 

01060 

"****  SEE 

USER  INPUT  SELECTION  SUMMARY  REPORT  SOI 

01070 

03  FILLER 

PIC 

X (27)  VALUE 

01080 

"FOR  SELECTION  CRITERIA  ****". 

01090 

01 

A-4HDR. 

01100 

03  FILLER 

PIC 

X<8)  VALUE  SPACES. 

OHIO 

03  FILLER 

PIC 

X < 13)  VALUE  " AFSC 

01120 

03  FILLER 

PIC 

X ( 15)  VALUE 

01130 

"ALT** 

11 

• 

01140 

03  FILLER 

PIC 

X ( 15)  VALUE 

01150 

"CMP** 

tt 

• 

01 160 

03  FILLER 

PIC 

X ( 15)  VALUE 

01170 

"DTL** 

11 

• 

01180 

03  FILLER 

PIC 

X ( 15)  VALUE 

01190 

"LVE** 

tt 

01200 

03  FILLER 

PIC 

X (20)  VALUE 

01210 

"TRN** 

SI 

■ 

01220 

03  FILLER 

PIC 

X (5)  VALUE  "TOTAL". 

01230 

01 

A-DTL, 

01240 

03  FILLER 

PIC 

X(7)  VALUE  SPACES. 

01250 

03  A-AFSC 

PIC 

X(5) . 

01260 

03  FILLER 

PIC 

X (2)  VALUE  SPACES. 

01270 

03  1-MNHRS 

PIC 

2(9)9. 9. 

01280 

03  FILLER 

PIC 

XXX  VALUE  SPACES. 

01290 

03  2-MNHRS 

PIC 

Z<9)9.9. 

01300 

03  FILLER 

PIC 

XXX  VALUE  SPACES. 

01310 

03  3-MNHRS 

PIC 

2(9)9 .9 . 

01320 

03  FILLER 

PIC 

XXX  VALUE  SPACES. 

01330 

03  4-MNHRS 

PIC 

Z (9)9. 9. 

01340 

03  FILLER 

PIC 

XXX  VALUE  SPACES. 

01350 

03  5-MNHRS 

PIC 

Z(9)9.9. 

01360 

03  FILLER 

PIC 

X (6)  VALUE  SPACES. 

01370 

03  ADTL-TOT 

PIC 

Z( 11 )9.9, 

01 380 

01 

OLD-RPT-CQDE 

PIC 

A. 

01390 

01 

UN IT -DUMMY 

PIC 

9(10). 

01400 

01 

TENTH-DUMMY  REDEFINES  UNIT-DUMMY 

PIC  9(9) V9. 

01410 

01 

TOTAL-PAGE-COUNT  PIC 

9(8)  COMP-1  VALUE  0. 

01420 

01 

PAGE-CTR 

PIC 

9(6)  COMP-1  VALUE  0. 

01430 

01 

LINE-CTR 

PIC 

999  COMP-1  VALUE  0. 

01440 

01 

MAX -L I NES-PER- 

-PAGE  PIC 

9999  COMP-1  VALUE  54. 

01450 

01 

OLD-AFSC 

PIC 

X  (5) . 

01460 

01 

A-TOTAL 

PIC 

9(9)  COMP-1. 

01470 

01 

AGRAN-TOTAL 

PIC 

9(10)  COMP-1. 

01430 

01 

ALINE-TABLE. 

01490 

03  A-MNHRS  OCCURS  5  TIMES  PIC 

9(8)  COMP-1. 

01500 

01 

ATOT-TABLE. 
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01510 

03 

A-TOT  OCCURS  5 

TIMES 

PIC  9(9)  COMP-1. 

01520 

*  THIS  SECTION  OF  DATA 

DIVISION 

IS  FOR  B  RPT-CODE. 

01530 

01 

B-1HDR. 

01540 

03 

FILLER 

PIC  X ( 12)  VALUE  SPACES. 

01550 

03 

FILLER 

PIC  X (9)  VALUE  “REPORT  S“. 

01560 

03 

BRPT-TYPE 

PIC  X. 

01570 

03 

FILLER 

PIC  X < 13)  VALUE  SPACES. 

01580 

03 

FILLER 

PIC  X  <  49)  VALUE 

01590 

“REPORTING  WORKCENTERS 

NOT  FOUND  IN  WORKCENTER-TO-”. 

01600 

03 

FILLER 

PIC  X(9)  VALUE  “AFSC  LIST”. 

01610 

03 

FILLER 

PIC  X( 17)  VALUE  SPACES. 

01620 

03 

FILLER 

PIC  X<5)  VALUE  "PAGE 

01630 

03 

BPAGE-NBR 

PIC  ZZZ9  VALUE  ZERO. 

01640 

01 

B-2HDR. 

01650 

03 

FILLER 

PIC  X (25)  VALUE  SPACES. 

01660 

03 

FILLER 

PIC  X (49)  VALUE 

01670 

■•****  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI 

01680 

03 

FILLER 

PIC  X(27)  VALUE 

01690 

“FOR  SELECTION  CRITERIA  ****". 

01700 

01 

B-3HDR. 

01710 

03 

FILLER 

PIC  X ( 13)  VALUE  "WQRKCENTER 

01720 

03 

FILLER 

PIC  X< 13)  VALUE  "  MDC  RECORDS 

01730 

03 

FILLER 

PIC  X (5)  VALUE  SPACES. 

01740 

03 

FILLER 

PIC  X(ll)  VALUE  "TOTAL  UNITS". 

01750 

03 

FILLER 

PIC  X (5)  VALUE  SPACES. 

01760 

03 

FILLER 

PIC  X ( 3)  VALUE  "MANHOURS". 

01770 

03 

FILLER 

PIC  X (9)  VALUE  SPACES. 

01780 

03 

FILLER 

PIC  X(10)  VALUE  "WORKCENTER". 

01790 

03 

FILLER 

PIC  X (5)  VALUE  SPACES. 

01800 

03 

FILLER 

PIC  X(ll)  VALUE  "MDC  RECORDS". 

01810 

03 

FILLER 

PIC  X<5)  VALUE  SPACES. 

01820 

03 

FILLER 

PIC  X(ll)  VALUE  "TOTAL  UNITS". 

01830 

03 

FILLER 

PIC  X (5)  VALUE  SPACES. 

01840 

03 

FILLER 

PIC  X (8)  VALUE  "MANHOURS". 

01850 

01 

B-DTL-SUBREC 

VALUE  SPACE. 

01860 

03 

FILLER 

PIC  XX. 

01870 

03 

B-D-WCTR 

PIC  X (5) . 

01880 

03 

FILLER 

PIC  X (3 ) . 

01890 

03 

B-D-REC-CNT 

PIC  Z (7)9. 

01900 

03 

FILLER 

PIC  X (8) . 

01910 

03 

B-D-UNITS 

PIC  Z (7 >9. 

01920 

03 

FILLER 

PIC  X (6) . 

01930 

03 

B-B-MNHRS 

PIC  Z<6)9.9. 

01940 

03 

.  FILLER 

PIC  X(10). 

01950 

01 

B-DTL-REC. 

01960 

03 

B-DTL-SUBREC- 

OUT 

PIC  X ( 64)  OCCURS  2. 

01970 

01 

SW 

PIC  9(6)  COMP-1. 

01980 

01 

B-COUNTERS. 

01990 

03 

B-REC-CNT 

PIC  9(8)  COMP-1. 

02000 

03 

B-UNITS 

PIC  9<S>  COMP-1. 

02010 

03 

B-MNHRS 

PIC  9(8)  COMP-1. 
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02020  01  OLD-WKCTR  PIC  X<5>. 

02030  *  THIS  SECTION  OF  CODE  PERTAINS  TO  RPT-TYPE  C 


02040 

01 

C-1HDR. 

M 

02050 

03 

FILLER 

PIC 

X ( 12)  VALUE  SPACES. 

02060 

03 

FILLER 

PIC 

X <S)  VALUE  "REPORT  S",  | 

02070 

03 

CRPT-TYPE 

PIC 

X.  1 

02080 

03 

FILLER 

PIC 

X  < 18)  VALUE  SPACES.  f 

02090 

03 

FILLER 

PIC 

X (46)  VALUE  1 

02100 

"SERIALLY  CONTROLLED 

REMOVALS  AND  INSTALLATIONS".  I 

02110 

03 

FILLER 

PIC 

X<24)  VALUE  SPACES.  1 

02120 

03 

FILLER 

PIC 

X (5)  VALUE  "PAGE  ".  1 

02130 

03 

CPAGE-NBR 

PIC 

ZZZ9.  1 

02140 

01 

C-2HDR. 

1 

02150 

03 

FILLER 

PIC 

X  <48)  VALUE  SPACES.  | 

02160 

03 

FILLER 

PIC 

X ( 16)  VALUE  f 

02170 

"REPORTED  DURING 

31 

02130 

03 

C-HDRSF 

PIC 

ZZZZZ9. 

02190 

03 

FILLER 

PIC 

X  VALUE  SPACE.  1 

02200 

03 

C-HDRTITLE 

PIC 

X (7)  VALUE  SPACES. 

02210 

01 

C-3HDR. 

i 

02220 

03 

FILLER 

PIC 

X (28)  VALUE  SPACES.  1 

02230 

03 

FILLER 

PIC 

X(49)  VALUE 

02240 

•'****  SEE  USER  INPUT 

SELECTION  SUMMARY  REPORT  SOI  ".  1 

02250 

03 

FILLER 

PIC 

X(27)  VALUE  3 

02260 

"FOR  SELECTION  CRITERIA 

***■*".  j 

02270 

01 

C-4HDR. 

| 

02230 

03 

FILLER 

PIC 

X(24)  VALUE  SPACES. 

X (8)  VALUE  "REMOVALS".  f 

02290 

03 

FILLER 

PIC 

02300 

03 

FILLER 

PIC 

X ( 13 )  VALUE  SPACES. 

02310 

03 

FILLER 

PIC 

X (5)  VALUE  "MEAN  ". 

02320 

03 

C4HDR-TITLE1 

PIC 

X (7)  VALUE  SPACES. 

02330 

03 

FILLER 

PIC 

X ( 12)  VALUE  SPACES. 

02340 

03 

FILLER 

PIC 

X ( 13)  VALUE  "INSTALLATIONS"! 

02350 

03 

FILLER 

PIC 

X(ll)  VALUE  SPACES. 

02360 

03 

FILLER 

PIC 

X<5)  VALUE  "MEAN  ". 

02370 

03 

C4HDR-T I TLE2 

PIC 

X (7)  VALUE  "SPACES". 

02330 

01 

C-5HDR. 

02390 

03 

FILLER 

PIC 

X(24)  VALUE  SPACES. 

02400 

03 

FILLER 

PIC 

X (8)  VALUE  "REPORTED". 

02410 

03 

FILLER 

PIC 

X(ll)  VALUE  SPACES. 

02420 

03 

FILLER 

PIC 

X< 16)  VALUE 

02430 

"BETWEEN  REMOVALS". 

02440 

03 

FILLER 

PIC 

X< 12)  VALUE  SPACES. 

02450 

03 

FILLER 

PIC 

X (8)  VALUE  "REPORTED". 

02460 

03 

FILLER 

PIC 

X(10)  VALUE  SPACES. 

02470 

03 

FILLER 

PIC 

X(21)  VALUE 

02480 

"BETWEEN  INSTALLATIONS". 

| 

02490 

01 

C-DTL. 

; 

02500 

03 

FILLER 

PIC 

X (7)  VALUE  SPACES. 

02510 

03 

C-DTL-WUC. 

i 

02520 

05  C-DTL-WUC- 1-2 

PIC 

XX.  | 

FIGURE  G-2.  JG05A/ CDEP/CSTAR/P3 

.c  1 

(UNCOMPILED  VERSION  CONT'D) 

1 

G-101 


02530 

05  C-DTL-WUC-3-4-5 

PIC 

X<6). 

02540 

03  FILLER 

PIC 

X  < 1 1 )  VALUE  SPACES. 

02550 

03  C-DTL-REMQ 

PIC 

ZZZ9  VALUE  ZERO. 

02560 

03  FILLER 

PIC 

X ( 16)  VALUE  SPACES. 

02570 

03  C-DTL-SOREM-X. 

02580 

05  C-DTL-SGREM 

PIC 

11119.9  VALUE  ZERO. 

02590 

03  FILLER 

PIC 

X (20)  VALUE  SPACES. 

02600 

03  C-DTL-INST 

PIC 

ZZZ9  VALUE  ZERO. 

02610 

03  FILLER 

PIC 

X ( 17 )  VALUE  SPACES. 

02620 

03  C-DTL-SOR I N— X . 

02630 

05  C-DTL-SOR IN 

PIC 

11119.9  VALUE  ZERO. 

02640 

01 

C-SYSTEM-SUBHEADER . 

02650 

03  FILLER 

PIC 

X ( 15)  VALUE 

02660 

"  SYSTEM: " . 

02670 

01 

QLD-WUC— 1— 2 

PIC 

XX. 

02680 

01 

TEMP 

PIC 

99  COMP-1. 

02690 

01 

C-SORT I E-FL YHRS 

PIC 

9(6)  COMP-1. 

02700 

01 

C-REMO-CNT 

PIC 

9(5)  COMP-1  VALUE  ZERO 

02710 

01 

C— INST-CNT 

PIC 

9(5)  COMP-1  VALUE  ZERO 

02720 

01 

C-SOR-REM 

PIC 

9(5) V9  VALUE  ZERO. 

02730 

0* 

C— SOR-INST 

PIC 

9(5) V9  VALUE  ZERO. 

02740 

♦THIS  SECTION  OF  CODE  PERTAINS 

TO  RCD-TYPE  D. 

02750 

01 

D-1HDR. 

02760 

03  FILLER 

PIC 

X ( 12)  VALUE  SPACES. 

02770 

03  FILLER 

PIC 

X(8)  VALUE  "REPORT  S". 

02780 

03  DRPT-TYPE 

PIC 

X. 

02790 

03  FILLER 

PIC 

X(34)  VALUE  SPACES. 

02800 

03  FILLER 

PIC 

X(30)  VALUE 

02310 

"SELECTED  MANHOURS  REPORTED 

FOR". 

02820 

03  FILLER 

PIC 

X (36)  VALUE  SPACES. 

02830 

03  FILLER 

PIC 

X(5)  VALUE  "PAGE  ". 

02840 

03  DPAGE-NBR 

PIC 

ZZZ9  VALUE  ZERO. 

02850 

01 

D-2HDR. 

02360 

03  FILLER 

PIC 

X (27)  VALUE  SPACES. 

02870 

03  FILLER 

PIC 

X ( 49)  VALUE 

02880 

"****  SEE  USER  INPUT 

SELECTION  SUMMARY  REPORT  SOI 

02890 

03  FILLER 

PIC 

X (27)  VALUE 

02900 

"FOR  SELECTION  CRITERIA  ****". 

02910 

01 

D-3HDR. 

02920 

03  FILLER 

PIC 

XXXX  VALUE  "AFSC". 

02930 

03  FILLER 

PIC 

X ( 1 1 )  VALUE  SPACES. 

02940 

03  FILLER 

PIC 

X ( 9)  VALUE  "WUC— > 

02950 

03  FILLER 

PIC 

X(ll)  VALUE  "01000 

02960 

03  FILLER 

PIC 

X(ll)  VALUE  "02000 

02970 

03  FILLER 

PIC 

X(ll)  VALUE  "03*** 

02980 

03  FILLER 

PIC 

X(ll)  VALUE  "04*** 

02990 

03  FILLER 

PIC 

X(ll)  VALUE  "05000 

03000 

03  FILLER 

PIC 

X(ll)  VALUE  "06000 

03010 

03  FILLER 

PIC 

X(ll)  VALUE  "07000 

03020 

03  FILLER 

PIC 

X(ll)  VALUE  "09000 

03030 

03  FILLER 

PIC 

X ( 12)  VALUE  "11000+ 
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03040 

03  FILLER 

PIC  X (5)  VALUE  "TOTAL”. 

03050 

01 

D-L I NE-T I TLE-T ABLE . 

03060 

03  FILLER 

PIC  X < 12)  VALUE  "ON  EQUIP". 

03070 

03  FILLER 

PIC  X < 12)  VALUE  "OFF  EQUIP" 

03030 

03  FILLER 

PIC  X  ( 12)  VALUE  "ON  ENGINE" 

03090 

03  FILLER 

PIC  X< 12)  VALUE  "OFF  ENGINE 

03100 

01 

03  FILLER 

PIC  X ( 12)  VALUE  "TOTAL". 

03110 

D-L-T-R  REDEFINES  D-LINE- 

-TITLE-TABLE. 

03120 

01 

03  D-L I NE-T I TLE 

PIC  X ( 12)  OCCURS  5  TIMES. 

03130 

D-DTL. 

03140 

03  FILLER 

PIC  X<6)  VALUE  SPACES. 

03150 

03  DDTL-TITLE 

PIC  X < 12) , 

03160 

01 

03  DDTL-MNHRS 

PIC  Z (3)9.9  OCCURS  10  TIMES, 

03170 

TEMP-L I NE-CTR 

PIC  9. 

03180 

01 

MAX 

PIC  99. 

03190 

01 

EFGH-SRDS 

PIC  X ( 30 ) . 

03200 

01 

EFGH-OPTION 

PIC  X. 

03210 

01 

VAR-WUC 

PIC  X (2) . 

03220 

01 

OLD-PSEUDO- WUC-TCTO . 

03230 

03  OLD-PSEUDO-WUC 

PIC  X<5). 

03240 

03  FILLER 

PIC  XX. 

03250 

01 

B4-GPEN 

PIC  X. 

03260 

01 

EFGH— TABLE. 

03270 

03  EFGH-MAX 

PIC  9(6)  COMP-1  VALUE  200. 

03 230 

03  EFGH-SS 

PIC  9(6)  COMP-1. 

03290 

03  EFGH— SSI 

PIC  9(6)  COMP-1. 

03300 

03  EFGH-START 

PIC  9(6)  COMP-1. 

03310 

03  EFGH-CURRENT-ST ART 

PIC  9(6)  COMP-1  VALUE  0. 

03320 

03  EFGH-LAST 

PIC  9(6)  COMP-1  VALUE  0. 

03330 

.  03  EFGH-END 

PIC  9(6)  COMP-1  VALUE  0. 

03340 

03  EFGH-AVAIL 

PIC  9(6)  COMP-1. 

03350 

03  H-RI-R-SS 

PIC  9(6>  COMP-1. 

03360 

03  H-RI-I-SS 

PIC  9(6)  COMP-1. 

03370 

03  EFGH-ENTRY  OCCURS  200 

TIMES. 

03380 

05  EFGH-AFSC 

PIC  X(5). 

03390 

05  EFGH-RI 

PIC  X. 

03400 

05  EFGH-MNHRS 

PIC  9(8)  COMP-1. 

03410 

05  EFGH-UNITS 

PIC  9(8)  COMP-1. 

03420 

05  EFGH-LINK 

PIC  9(8)  COMP-1. 

03430 

01 

EFGH-PRINT-TITLE. 

03440 

03450 

03  EFGH-G-T I TLE . 

05  FILLER 

PIC  X (5) . 

03460 

05  EFH-PR I NT-WUC 

PIC  X(5) . 

03470 

05  FILLER 

PIC  XX. 

03480 

03490 

05  EFH-PR I NT-NAME. 

07  FILLER 

PIC  X (5) . 

03500 

07  G-PRINT— TCTO 

PIC  X(10>. 

03510 

07  FILLER 

PIC  X<5). 

03520 

05  FILLER 

PIC  XX  VALUE  SPACES. 

03530 

03  FILLER 

PIC  X (5)  VALUE  "TOTAL". 

03540 

01 

AFSC-TITLE 

PIC  X ( 14)  VALUE 
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03550 

"AFSC-'S - >". 

03560 

01 

EFGH-GROUP-HEAD. 

03570 

03 

EFGH-GROUP-HEAD-T I TLE 

PIC 

X ( 49 ) . 

03530 

03 

EFGH-GROUP-HEAD- AFSC-T I TLE . 

03590 

05  FILLER 

PIC 

X<11). 

03600 

05  EFGH-ENTRY  OCCURS  6 

TIMES. 

03610 

07  FILLER 

PIC 

X<5>. 

03620 

07  EFGH-GROUP-HEAD- 

-AFSC 

PIC  X<5) . 

03630 

01 

EFGH-DTL-1. 

03640 

03 

FILLER 

PIC 

X ( 12)  VALUE  SPACES. 

03650 

03 

EFGH-D 1 -HEAD-SUBT I TLE . 

03660 

05  FILLER 

PIC 

X (8)  VALUE  SPACES. 

03670 

05  FILLER 

PIC 

X(5)  VALUE  "UNITS". 

03680 

03 

FILLER 

PIC 

X (6)  VALUE  SPACES. 

03690 

03 

EFGH-D 1 -TOTAL. 

03700 

05  EFGH-D 1 -TOTAL-UNITS 

PIC 

Z<7)9. 

03710 

03 

FILLER 

PIC 

X(2l )  VALUE  SPACE. 

03720 

03 

EFGH-D 1 - AFSC-STUFF . 

03730 

05  EFGH-D 1-AFSC-ENTRY  i 

OCCURS  6  TIMES. 

03740 

07  FILLER 

PIC 

XX. 

03750 

07  EFGH-D 1 -VALUE . 

03760 

09  EFGH-D1 -UNITS 

PIC  Z(7)9. 

03770 

01 

EFGH-DTL-2. 

03780 

03 

FILLER 

PIC 

X<9)  VALUE  SPACES. 

03790 

03 

EFGH-D2-H-SUBT I TLE 

PIC 

X(8)  VALUE  SPACES. 

03800 

03 

FILLER 

PIC 

X ( 13)  VALUE  "MANHOURS 

03810 

03 

EFGH-D2-T0TAL. 

• 

03820 

05  EFGH-D2 -TOT AL-MNHRS 

PIC 

Z<6)9.9. 

03830 

03 

FILLER 

PIC 

X<21 )  VALUE  SPACES, 

03840 

03 

EFGH-D2-AFSC-STUFF . 

03850 

05  EFGH-D2-AFSC-ENTRY  i 

OCCURS  6. 

03860 

07  FILLER 

PIC 

X. 

03870 

07  EFGH-D2- VALUE. 

03880 

09  EFGH-D2-MNHRS 

PIC  Z(6)9. 9. 

03890 

01 

H-DETAIL-3. 

03900 

03 

FILLER 

PIC 

X(10)  VALUE  SPACES. 

03910 

03 

FILLER 

PIC 

X ( 15)  VALUE 

03920 

"UNITS  INSTALLED". 

03930 

03 

FILLER 

PIC 

X (6)  VALUE  SPACES. 

03940 

03 

H-D3-T0TAL. 

03950 

05  H-D3-T OT AL-UN ITS 

PIC 

Z  <7)9. 

03960 

03 

FILLER 

PIC 

X (21 )  VALUE  SPACES. 

03970 

03 

H-D3- AFSC-STUFF . 

03980 

05  H-D3-AFSC-ENTRY  OCCURS  6 

TIMES. 

03990 

07  FILLER 

PIC 

XX. 

04000 

07  H-D3- VALUE. 

04010 

09  H-D3-UNITS 

PIC  Z <7)9. 

04020 

01 

H-DET AIL-4. 

04C30 

03 

FILLER 

PIC 

X (3)  VALUE  SPACES. 

04040 

03 

FILLER 

PIC 

X  <  22 )  VALUE 

04050 

■ I NST ALL AT ION  MAN-HOURS". 
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04060 

03  FILLER 

PIC 

X (5)  VALUE  SPACES. 

04070 

03  H-D4-T0TAL. 

04080 

05  H-D4-T OT AL-MNHRS 

PIC 

Z (6)9. 9. 

04090 

03  FILLER 

PIC 

X (21 )  VALUE  SPACE. 

04100 

03  H-D4-AFSC-STUFF. 

04110 

05  H-D4-AFSC-ENTRY  OCCURS  6 

TIMES. 

04120 

07  FILLER 

PIC 

X. 

04130 

07  H-D4- VALUE. 

04140 

09  H-D4-MNHRS 

PIC  Z ( 6) 9. 9. 

04150 

01 

BAD-WUC. 

04160 

03  BAD-WUC- IB 

PIC 

XX. 

04170 

03  FILLER 

PIC 

XXX  VALUE  "BAD". 

04180 

01 

BAD-WUC-NAME. 

04190 

03  FILLER 

PIC 

X<8)  VALUE  "INVALID". 

04200 

03  BAD— WUC-NAME— WUC— I D 

PIC 

XX. 

04210 

03  FILLER 

PIC 

X<10)  VALUE  “XXX  CODES 

04220 

01 

N0T-B4- WUC-T I TLE . 

04230 

03  FILLER 

PIC 

X (20)  VALUE 

04240 

"***NOT  ON  B4  FILE***”. 

04250 

01 

EFH-PRINT-TITLE. 

04260 

03  FILLER 

PIC 

X(27)  VALUE  "WUCS". 

04270 

01 

6-PRINT-TITLE. 

04280 

03  FILLER 

PIC 

X(ll>  VALUE  "TCTO  CODE 

04290 

03  FILLER 

PIC 

X(23)  VALUE  SPACES. 

04300 

01 

RPT— OPTION 

PIC 

9. 

04310 

01 

MNHRS-T  ABLE . 

04320 

03  MNHRS-ROW  OCCURS  5. 

04330 

05  MNHRS 

PIC 

9(8)  COMP-1  OCCURS  10. 

04340 

03  X 

PIC 

9(6)  COMP-1. 

04350 

03  Y 

PIC 

9(6)  COMP-1. 

04360 

03  TMNHRS-ROW  OCCURS  5. 

04370 

05  TMNHRS 

PIC 

9(8)  COMP-1  OCCURS  10. 

04380 

01 

H-TOTAL— UNITS-I 

PIC 

9(8)  COMP-1. 

04390 

01 

H— TOT AL-MNHRS- I 

PIC 

9(8)  COMP-1. 

04400 

01 

EFGH-TOTAL-UN ITS 

PIC 

9(8)  COMP-1  VALUE  ZERO, 

04410 

01 

EFGH-TOT  AL-MNHRS 

PIC 

9(8)  COMP-1  VALUE  ZERO 

04420 

01 

MLPP 

PIC 

99. 

04430 

01 

EFGH-1HDR. 

04440 

03  FILLER 

PIC 

X ( 12)  VALUE  SPACES. 

04450 

03  FILLER 

PIC 

X(8)  VALUE  "REPORT  S". 

04460 

03  EFGH-RPT-TYPE 

PIC 

X. 

04470 

03  FILLER 

PIC 

X (26)  VALUE  SPACES. 

04480 

03  VAR-TITLE 

PIC 

X (20)  JUST  RIGHT. 

04490 

03  FILLER 

PIC 

X( 18)  VALUE 

04500 

"  WORK  REPORTED  FOR". 

04510 

03  FILLER 

PIC 

X (31 )  VALUE  SPACES. 

04520 

03  FILLER 

PIC 

X(5)  VALUE  "PAGE  ". 

04530 

03  EFGH-PAGE-NBR 

PIC 

1119  VALUE  ZERO. 

04540 

01 

EFGH-2HDR. 

04550 

03  FILLER 

PIC 

X(27)  VALUE  SPACES. 

04560 

03  FILLER 

PIC 

X(49)  VALUE 
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04570  ''****  SEE  USER  INPUT  SELECTION  SUMMARY  REPORT  SOI 

04530  03  FILLER  PIC  X<27)  VALUE 

04590  "FOR  SELECTION  CRITERIA  ****», 

04600  01  REPORT-GROUP-SUBHEADER. 


04610 

03 

FILLER 

PIC 

X (29)  VALUE 

04620 

"CDEP  STANDARD  H. I.S. 

VERSION  ". 

04630 

03 

RPT-GRP-SH- VERS I ON 

PIC 

X<10>. 

04640 

03 

FILLER 

PIC 

X <8)  VALUE  SPACE 

04650 

03 

FILLER 

PIC 

X < 19)  VALUE 

04660 

"REPORT  GROUP  TITLE  " 

• 

04670 

03 

RPT-GRP-SH-T I TLE 

PIC 

X ( 25 ) . 

04630  / 

04690  PROCEDURE  DIVISION. 

04700  001 -OPEN. 

04710  OPEN  INPUT  RPT-FIL. 

04720  OPEN  OUTPUT  ERR-FIL,  QUT-FIL. 

04730  PERFORM  300-INITIAL  THRU  300-EXIT. 

04740  MOVE  CDEP-VERSION  TO 

04750  RPT-GRP-SH- VERS I ON 

04760  ERR-V-M— VERSION. 

04770  MOVE  SPACE  TO  ERR. 

04780  WRITE  ERR  AFTER  ADVANCING  TOP. 

04790  WRITE  ERR  FROM  ERR- VERS I GN-MSG  AFTER  ADVANCING  3. 

04800  WRITE  ERR  FROM  ERR-TOP  AFTER  ADVANCING  2. 

0481C  001-READ. 

04820  PERFORM  820-READER. 

04830  002-PICK. 

04840  IF  HEADER-KEY-2  NOT  =  LOW-VALUE 

04850  MOVE  "ERRl"  TO  ERR-REASON 

04860  PERFORM  830-0UTPUT-ERR 

04870  GO  TO  001 -READ. 

04880  IF  RPT— CODE  =  “A"  GO  TO  005- A-GENER . 

04890  IF  RPT— CODE  =  "B"  GO  TO  045— B-GENER . 

04900  IF  RPT— CODE  =  "C"  GO  TO  085-C-GENER. 

04910  IF  RPT— CODE  =  "D"  GO  TO  1 35— D-GENER . 

04920  IF  RPT— CODE  =  "E"  OR  "F"  OR  "G”  OR  »H" 

04930  GO  TO  1 95-EF 6H-RPT-GENER . 

04940  IF  RPT— CODE  =  "Z"  GO  TO  9 99 -EOF. 

04950  *  *  UNKNOWN  REPORT  CODE 

04960  MOVE  "ERR2"  TO  ERR-REASON. 

04970  PERFORM  S30-0UTPUT-ERR . 

04980  GO  TO  001 -READ. 

04990  / 

05000  005- A-GENER. 

05010  MOVE  0  TO  PAGE-CTR. 

05020  MOVE  RPT— CODE  TO  ARPT-TYPE?  OLD-RPT-CCDE . 

05030  MOVE  REPORT-GROUP-TITLE  TO  RPT-GRP-SM-TITLE. 

05040  PERFORM  010-AHDR. 

05050  MOVE  OPTION  TO  RPT-OPTION. 

05060  PERFORM  700-SPIN-DOWN-HEADERS  THRU  704-SDH-EXIT. 

05070  IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
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05030 

05090 

05100 

05110 

05120 

05130 

05140 

05150 

05160 

05170 

05180 

05190 

05200 

05210 

05220 

05230 

05240 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 


IF  RPT-0PTI0N  =  ZERO 

PERFORM  300-NO-DAT A-FGR-REPORT 
GO  TO  002-PICK 
FLSE 

PERFORM  810-REPORT-SUPPRESSED 
GO  TO  002-PICK. 

GO  TO  035- INITIALIZE- TABLES. 


010-AHDR. 

ADD  1  TO 

TOTAL-PAGE-COUNT 

PAGE-CTR. 

MOVE  PAGE-CTR  TO  APAGE-NBR. 

WRITE  OUT  FROM  A-1HDR  AFTER  ADVANCING  TOP. 

WRITE  OUT  FROM  REPORT-GROUP-SUBHEADER  AFTER  ADVANCING 
WRITE  OUT  FROM  A-2HDR  AFTER  ADVANCING  1  LINE. 

WRITE  OUT  FROM  A— 3HDR  AFTER  ADVANCING  1  LINE. 

WRITE  OUT  FROM  A-4HDR  AFTER  ADVANCING  2  LINE. 

MOVE  6  TO  LJNE-CTR. 


* 

* 


020-TALLY. 

MOVE  “TOTAL-  TO  A-AFSC. 

MOVE  A-TOT  <1>  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  1-MNHRS. 

MOVE  A-TOT  (2)  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  2-MNHRS. 

MOVE  A-TOT  (3)  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  3-MNHRS. 

MOVE  A-TOT  (4)  TO  UNIT-DUMMY. 

MOVE  TENTH-DUWY  TO  4-MNHRS. 

MOVE  A-TOT  <5>  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMM* '  TO  5-MNHRS. 

MOVE  AGRAN-TOTAL  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  ADTL-TOT. 

WRITE  OUT  FROM  A-DTL  AFTER  ADVANCING  2  LINES. 
GO  TO  002-PICK. 

030- WRITE. 

IF  LINE-CTR  +  2  >  MAX-L I NES-PER-PAGE 
PERFORM  010-AHDR. 

MOVE  OLD— AFSC  TO  A-AFSC. 

MOVE  A-MNHRS  ( 1 )  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  1-MNHRS. 

MOVE  A-MNHRS  (2)  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  2-MNHRS. 

MOVE  A-MNHRS  (3)  TO  UN IT -DUMMY. 

MOVE  TENTH-DUMMY  TO  3-MNHRS. 

MOVE  A-MNHRS  (4)  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  4-MNHRS. 

MOVE  A-MNHRS  (5)  TO  UNIT-DUMMY. 
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05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

05690 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 

05870 

05880 

05890 

05900 

05910 

05920 

05930 

05940 

05950 

05960 

05970 

05980 

05990 

06000 

06010 

06020 

06030 

06040 

06050 

06060 

06070 

06080 

06090 


MOVE  TENTH-DUMMY  TO  5-MNHRS, 

ADD  A-TOTAL  TO  AGRAN-TGTAL. 

MOVE  A-TOTAL  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  ADTL-TOT. 

WRITE  OUT  FROM  A— DTL  AFTER  ADVANCING  2  LINES. 

ADD  2  TO  LINE-CTR. 

035- INITIALIZE— TABLES. 

MOVE  ZERO  TO 
A-TOT  (1) 

A-TOT  (2) 

A-TOT  (3) 

A-TOT  (4) 

A-TOT  (5) 

AGR AN-TOTAL. 

037-INITI ALI ZE— LINE— TABLE. 

MOVE  AFSC  TO  OLD-AFSC. 

MOVE  ZERO  TO 
A-MNHRS  (1) 

A-MNHRS  <2) 

A-MNHRS  (3) 

A-MNHRS  (4) 

A-MNHRS  (5) 

A-TOTAL. 

039-ADD. 

ADD  MANHOURS  TO  A-MNHRS  (COL-INDEX). 

ADD  MANHOURS  TO  A-TOTAL,  A-TOT  (COL-INDEX). 

PERFORM  820-READER. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
PERFORM  030-WRITE 
GO  TO  020-TALLY. 

IF  AFSC  NOT  =  OLD-AFSC 
PERFORM  030-WRITE 
GO  TO  037-INITI ALI ZE-LINE-TABLE. 

GO  TO  039-ADD. 

040-SA-REP0RT— EXIT. 

EXIT. 

045-B-GENER. 

MOVE  ZERO  TO  PAGE-CTR. 

MOVE  RPT-CODE  TO  BRPT-TYPE,  OLD-RPT-CODE. 

MOVE  1  TO  SW. 

PERFORM  050-BHBR. 

MOVE  OPTION  TO  RPT-OPTIQN. 

PERFORM  700-SPIN— DOWN-HEADERS  THRU  704-SDH-EXIT. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
IF  RPT— OPTION  =  ZERO 

PERFORM  800-N0-DATA-F0R-REP0RT 
GO  TO  002-PICK 
ELSE 

PERFORM  8 1 O— REPORT-SUPPRESSED 
GO  TO  002-PICK. 

FIGURE  G-2.  JG05A/CDEP/CSTAR/P3.C 
(UK COMPILED  VERSION  COAT’D) 
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06100 
06110 
''6120 
-6130 
•>6140 
06  ISO 
06160 
06170 
06130 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 


GO  TO  055-INITIAL I ZE-WKCTR. 


050-BHDR, 

ADD  1  TO 

TOTAL-PAGE-COUNT 

PAGE-CTR. 

MOVE  PAGE-CTR  TO  BPAGE-NBR. 

WRITE  OUT  FROM  B-1HDR  AFTER  TOP. 

WRITE  OUT  FROM  REPORT-GROUP-SUBHEADER  AFTER  ADVANCING  1. 
WRITE  OUT  FROM  B-2HDR  AFTER  ADVANCING  1  LINE. 

WRITE  OUT  FROM  B-3HDR  AFTER  ADVANCING  2  LINES. 

-*1>V(.-  5  TO  LINE-CTR. 


055- IN I T I AL I ZE-WKCTR . 

MOVE  WKCTR  TO  OLD-WKCTR. 

MOVE  ZERO  TO 
B-REC-CNT 
B-UNITS 
B-MNHRS. 

* 

060-ADD. 

ADD  1  TO  B-REC-CNT. 

ADD  UNITS-PROD  TO  B-UNITS. 

ADD  MANHOURS  TO  B-MNHRS. 

PERFORM  820-READER. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
GO  TO  065-FINISH. 

IF  WKCTR  =  OLD-WKCTR 
GO  TO  060- ADD. 

PERFORM  070-SET-B-DTL-SUBREC-OUT . 
GO  TO  055- INITIALI ZE-WKCTR. 

* 

065-FINISH. 

PERFORM  070-SET-B-DTL-SUBREC-OUT . 
IF  SW  =  2 

MOVE  SPACE  TO  B-DTL-SUBREC 
PERFORM  075-WRITE. 

GO  TO  002-PICK. 

* 

* 

070-SET-B-DTL-SUBREC-OUT. 

MOVE  OLD-WKCTR  TO  B-D-WCTR. 

MOVE  B-REC-CNT  TO  B-D-REC-CNT. 
MOVE  B-UNITS  TO  B-D-UNITS. 

MOVE  B-MNHRS  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  B-D-MNHRS. 
PERFORM  075-WRITE. 

* 

* 


FIGURE  G-2.  JG05A/CDEP/CSTAR/P3.C 
(UNCOMPILED  VERSION  CONT'D) 
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06610 

06620 

06630 

06640 

06650 

06660 

06670 

06630 

06690 

06700 

06710 

06720 

06730 

06740 

06750 

0676'“' 

06770 

06780 

06790 

06800 

06810 

06820 

06330 

06340 

06850 

06860 

06870 

06380 

06390 

06900 

06910 

06920 

06930 

06940 

06950 

06960 

06970 

06930 

06990 

07000 

07010 

07020 

07030 

07040 

07050 

07060 

07070 

07030 

07090 

07100 

07110 


075-WRITE. 

MOVE  B-DTL-SUBREC  TO  B-DTL-SUBREC-GUT  (SW). 

IF  LINE-CTR  +  2  >  MAX-LINES-PER-PAGE 
PERFORM  050-BHDR. 

IF  SW  =  1 

MOVE  2  TO  SW 
ELSE 

MOVE  1  TO  SW 

WRITE  OUT  FROM  B-DTL-REC  AFTER  2 
ADD  2  TO  LINE-CTR. 

* 

* 

030-SB-REP0RT-EX IT. 

EXIT. 

/ 

035— C-GENER. 

MOVE  ZERO  TO  PAGE-CTR. 

MOVE  RPT-CODE  TO  CRPT-TYPE,  GLD-RPT-CODE. 

MOVE  SF-TITLE  TO  C-HDRTITLE. 

MOVE  SORT I E-FL YHRS  TO  C-HBRSF,  C-SORT I E-FL YHRS . 

MOVE  SF-TITLF  TO  C4HDR-TITLE1 ,  C4HDR-T I TLE2 . 

PERFORM  090-CHDR. 

MOVE  OPTION  TO  RPT-OPTION. 

PERFORM  700-SPIN-DOWN-HEADERS  THRU  704-SDH-EXIT. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
IF  RPT-OPTION  =  ZERO 

PERFORM  800-NO-D AT A-FOR-REPORT 
GO  TO  002-PICK 
ELSE 

PERFORM  310-REPORT-SUPPRESSED 
GO  TO  002-PICK. 

GO  TO  100-INITIALIZE-DATA. 

* 

•* 

090-CHDR. 

ADD  1  TO 

TOTAL-PAGE-COUNT 

PAGE-CTR. 

MOVE  PAGE-CTR  TO  CPAGE-NBR. 

WRITE  OUT  FROM  C-iHDR  AFTER  ADVANCING  TOP. 

WRITE  OUT  FROM  C-2HDR  AFTER  ALv’ANCING  1  LINE. 

WRITE  OUT  FROM  REPORT-GROUP-SUBHEADER  AFTER  ADVANCING  1. 

WRITE  OUT  FROM  C-3HDR  AFTER  ADVANCING  1  LINE. 

WRITE  OUT  FROM  C-4HDR  AFTER  ADVANCING  2  LINES. 

WRITE  OUT  FROM  C-5HBR  AFTER  ADVANCING  1  LINE. 

MOVE  7  TO  LINE-CTR. 

#  * 

# 

095-WR I TE-SYST-SUBHEADER . 

WRITE  OUT  FROM  C-SYSTEM-SUBHEADER  AFTER  2. 

MOVE  SPACE  TO  OUT. 

FIGURE  G-2.  JG05A/ CDEP / CSTAR/P3 . C 
(UNCOMPILED  VERSION  CONT’D) 


m' 
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C7120 

07130 

07140 

07150 

07160 

07170 

07130 

07190 

07200 

07210 

07220 

07230 

07240 

07250 

07260 

07270 

07230 

07290 

07300 

07310 

07320 

07330 

07340 

07350 

07360 

07370 

07330 

07390 

07400 

07410 

07420 

07430 

07440 

07450 

07460 

07470 

07430 

07490 

07500 

07510 

07520 

07530 

07540 

07550 

07560 

07570 

07530 

07590 

07600 

07610 

07620 


WRITE  OUT  AFTER  1. 

ADD  3  TO  LINE-CTR. 

* 

* 

100-INITIALIZE-DATA. 

MOVE  ZERO  TO 
C-INST-CNT 
C-REMO-CNT. 

MOVE  WUC-1-2  TO  OLD-WUC-1-2. 

1 10-ADD-AND-GET-NEXT. 

IF  R-I-FLAG  =  "I" 

ADD  1  TO  C-INST-CNT 
ELSE 

ADD  1  TO  C-REMO-CNT. 

PERFORM  820-READER. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 

PERFORM  1 20-COMPUTE- AND-OUTPUT 
GO  TO  002-PICK. 

IF  WUC-1-2  NOT  =  OLD-WUC-1-2 

PERFORM  1 20-C0MPUTE- AND-OUTPUT 
GO  TO  100-INITIALIZE-DATA. 

GO  TO  1 10-ADD-AND-GET-NEXT. 

# 

* 

1 20-C0MPUTE-AND-0UTPUT . 

MOVE  C-REMO-CNT  TO  C-OTL-REMO. 

IF  C-REMO-CNT  =  ZERO 

MOVE  "***•**"  TO  C-DTL-SOREM-X 
ELSE 

DIVIDE  C-SORT I E-FL YHRS  BY 
C-REMO-CNT  GIVING 
C-DTL-SOREM. 

MOVE  C-INST-CNT  TO  C-DTL-INST. 

IF  C-INST-CNT  =  ZERO 

MOVE  "*****''  TO  C-PTL-SORIN-X 
ELSE 

DIVIDE  C-SORT I E-FLYHRS  BY 
C-INST-CNT  GIVING 
C-DTL-SORIN. 

IF  OLD-WUC-1-2  =  "00" 

MOVE  "ENGINES:"  TO  C-DTL-WUC 
MOVE  2  TO  TEMP 
ELSE 

MOVE  OLD-WUC-1-2  TO  C-DTL-WUC- 1-2 
MOVE  "***"  TO  C-DTL-WUC-3— 4-5 
MOVE  1  TO  TEMP. 

IF  LINE-CTR  +  TEMP  >  MAX-LINES-PER-PAGE 
PERFORM  090-CHDR 

PERFORM  095- WR I TE-SYST-SUBHEADER . 

WRITE  OUT  FROM  C-DTL  AFTER  ADVANCING  TEMP. 

FIGURE  G-2.  JG05A/CDEP/CSTAR/P3.C 
(UNCOMPILED  VERSION  CONT'D) 
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07630 

07640 

07650 

07660 

07670 

07630 

07690 

07700 

07710 

07720 

07730 

07740 

07750 

07760 

07770 

07730 

07790 

07800 

07310 

07820 

07330 

07840 

07350 

07860 

07870 

07330 

07390 

07900 

07910 

07920 

07930 

07940 

07950 

07960 

07970 

07980 

07990 

03000 

03010 

08020 

08030 

03040 

03050 

08060 

0S070 

08030 

03090 

08100 

03110 

03120 

03130 


ADD  TEMP  TO  LINE-CTR. 

IF  TEMP  =  2 

PERFORM  095-WR I TE-S YST-SUBHEADER . 


120-SC-REP0RT-EX IT. 
tX  IT. 
t 

135-D-GENER. 

MOVE  RPT-CODE  TO  DRPT-TYPE,  OLD-RPT-CODE. 

MOVE  OPTION  TO  RPT-OPTION. 

MOVE  ZERO  TO  PAGE-CTR. 

PERFORM  140-DHDR. 

PERFORM  700-SPIN-DOWN-HEADERS  THRU  704-SDH-EXIT. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
IF  RPT-OPTION  -  2 

PERFORM  310-REPORT-SUPPRESSED 
GO  TO  002-PTCK 
ELSE 

PERFORM  300-N0-DAT A-FOR-REPORT 
GO  TO  002-PICK. 

IF  RPT-OPTION  =  ZERO 
MOVE  7  TO  TEMP 
ELSE 

MOVE  3  TO  TEMP. 

PERFORM  1 37-CLE AR- ALL-M ANHOURS-T ABLES 
VARYING  X  FROM  1  BY  1 
UNTIL  X  >  5 

AFTER  Y  FROM  1  BY  1 
UNTIL  Y  >  10. 

GO  TO  1 45-SET-NEXT-AFSC . 

* 

# 

1 37-CLE AR- ALL-M ANHOURS-T ABLES . 

MOVE  ZERO  TO 

TMNHRS  < X ? Y) 

MNHRS  ( X 7 Y) . 

it- 

* 

140-DHDR. 

ADD  1  TO 

TOTAL-PAGE-COUNT 

PAGE-CTR. 

MOVE  PAGE-CTR  TO  DPAGE-NBR. 

WRITE  OUT  FROM  D-1HDR  AFTER  ADVANCING  TOP. 

WRITE  OUT  FROM  REPORT-GROUP-SUBHEADER  AFTER  ADVANCING  1. 
WRITE  OUT  FROM  D-2HDR  AFTER  ADVANCING  1  LINE. 

WRITE  OUT  FROM  D-3HDR  AFTER  ADVANCING  3  LINES. 

MOVE  6  TO  LINE-CTR. 

* 


FIGURE  G-2.  JG05A/CDEP/CSTAR/P3 .0 
(UNCOMPILED  VERSION  CONT’D) 
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03140 

08150 

03160 

03170 

03130 

03190 

08200 

08210 

08220 

0S230 

08240 

03250 

03260 

08270 

08280 

08290 

08300 

08310 

08320 

03330 

08340 

08350 

08360 

08370 

08380 

08390 

03400 

03410 

03420 

08430 

03440 

OS450 

03460 

03470 

08430 

08490 

08500 

08510 

03520 

08530 

03540 

03550 

03560 

03570 

03580 

08590 

03600 

08610 

08620 

08630 

08640 


1 45-SET-NEX T-AFSC. 

*  *  NOTE  THAT  AFTER  THE  INITIAL  CLEARING  OF  THE  MNHRS 

*  *  TABLES  IN  1 37-CLEAR- ALL-MANHOURS-T ABLES  (ABOVE), 

*  *  THE  MNHRS  TABLE  ELEMENTS  ARE  RE-CLEARED  ON  THE 

*  *  FLY  AFTER  EACH  IS  ACCUMULATED  INTO  ITS  CORRESPON- 

*  #  DING  TMNHRS  TABLE  ELEMENT  AND  PUT  INTO  A  REPORT 

*  *  DETAIL  LINE. 

MOVE  AFSC  TO  GLD-AFSC. 

* 

150- ACCOM- AFSC-BLOCK-BQDY . 

ADD  MANHOURS  TO  MNHRS  < ROW- INDEX, COL- INDEX ) . 

PERFORM  320-READER. 

IF  RPT-CODE  NOT  »  OLD-RPT-CODE 

PERFORM  155-END-AND-OUTPUT-AFSC-ELGCK 
PERFORM  1 75-OUTPUT-F I NAL-TOTALS-BLOCK 
GO  TO  002-PICK. 

IF  AFSC  NOT  *  OLD-AFSC 

PERFORM  1 55-END- AND-OUTPUT-AFSC-BLOCK 
GO  TO  145-SET-NEXT-AFSC. 

GO  TO  1 50- ACCUM-AFSC-BLOCK-BODY . 

*  # 

* 

1 55-END-AND-OUTPUT- AFSC-BLOCK . 

PERFORM  1 60-CONTROL-AFSC-9LOCK-EDGES 
VARYING  X  FROM  1  BY  1 
UNTIL  X  >  4. 

IF  LINE-CTR  +  TEMP  >  MAX-L I NES-PER-P AGE 
PERFORM  140-DHDR. 

MOVE  OLD-AFSC  TO  OUT. 

WRITE  OUT  AFTER  ADVANCING  2. 

PERFORM  165-OUTPUT- AFSC-  3L0CK-DTL  THRU  1 67-OABD-EX I T 
VARYING  X  FROM  1  BY  1 
UNTIL  X  >  5. 

ADD  TEMP  TC  LINE-CTR. 


1 60-C0NTR0L-AFSC-BL0CK* ~DGES. 

*  *  X  IS  ALREADY  VARYING.  SEE  CALLING  PERFORM  STATEMENT. 
PERFORM  1 62-ACCUM-AFSC-BLOCK-EDGES 

VARYING  Y  FROM  1  BY  1 
UNTIL  Y  >  9. 

ADD  MNHRS  <X,10)  TO  MNHRS  (5,10). 

* 

1 62- ACCUM- AFSC-BLOCK  EDGES. 

ADD  MNHRS  <X,Y)  TO 
MNHRS  <X,10) 

MNHRS  <5, Y) . 

* 

* 

1 65-0UTPUT-AFSC-BL0CK-DTL . 

FIGURE  G-2,  JG05A/CDEP/CSTAR/P3.C 
(UNCOMPILED  VERSION  CONT’D) 
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C  8650 
03660 
03670 
03630 
08690 
08700 
08710 
08720 
08730 
08740 
08750 
08760 
08770 
08780 
08790 
08800 
08810 
08820 
03330 
08340 
03850 
08860 
08S70 
08880 
08390 
03900 
03910 
08920 
08930 
08940 
08950 
08960 
08970 
08930 
08990 
09000 
09010 
09020 
09030 
09040 
09050 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 
09140 
09150 


*  X  IS  ALREADY  VARYING.  SEE  CALLING  PERFORM  STATEMENT. 
PERFORM  1 70-ACCUM-F I NAL-SET- AFSC-DTL 
VARYING  Y  FROM  1  BY  1 
UNTIL  Y  >  10. 

IF  RPT-OPTION  =  1  AND 
X  NOT  =  5 

GO  TO  167-OABD-EXIT. 

MOVE  D-LINE-TITLE  (X)  TO  DDTL-TITLE. 

WRITE  OUT  FROM  D-DTL  AFTER  1. 


1 67-OABD-EX IT. 
EXIT. 


1 70-ACCUM-F I NAL-SET- AFSC-DTL . 

ADD  MNHRS  <X,Y>  TO  TMNHRS  <X,Y>. 
MOVE  MNHRS  <X,Y>  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  DDTL-MNHRS  (Y). 
MOVE  ZERO  TO  MNHRS  <X,Y>. 


1 75— OUTPUT— F I NAL-TOTALS-BLOCK . 

IF  LINE-CTR  +  7  >  M A X -L I NES-PER-PAGE 
PERFORM  140-DHDR. 

MOVE  "TOTAL"  TO  OUT. 

WRITE  OUT  AFTER  2. 

PERFORM  1 80-0UTPUT-F I N AL-TOT ALS-DTL 
VARYING  X  FROM  1  BY  1 
UNTIL  X  >  5. 


1 SO-GUTPUT-F I NAL-TOT ALS-DTL . 

*  *  X  IS  ALREADY  VARYING.  SEE  CALLING  PERFORM  STATEMENT 
PERFORM  1 85-SET-F I NAL-T OT ALS-DTL 

VARYING  Y  FROM  1  BY  1 
UNTIL  Y  >  10. 

MOVE  D-LINE-TITLE  (X)  TO  DDTL-TITLE. 

WRITE  OUT  FROM  D-DTL  AFTER  1. 

*  * 

* 

1 85-SET-F I NAL-TOT ALS-DTL . 

MOVE  TMNHRS  <X,Y>  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  DDTL-MNHRS  (Y). 

* 

* 

1 90-SD-REP0RT-EX I T . 

EXIT. 

/ 

1 95-EFOH-RPT-GENER . 

MOVE  OPTION  TO  RPT-OPTION. 

MOVE  RPT-CODE  TO  OLD-RPT-COBE,  EFGH-RPT-TYPE. 

FIGURE  G-2.  JG05A/CDEP/CSTAR/P3.C 
(UNCOMPILED  VERSION  CONT’D) 
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09160 

09170 

09180 

09190 

09200 

09210 

09220 

09230 

09240 

09250 

09260 

09270 

09280 

09290 

09300 

09310 

09320 

09330 

09340 

09350 

09360 

09370 

09380 

09390 

09400 

09410 

09420 

09430 

09440 

09450 

09460 

09470 

09480 

09490 

09500 

09510 

09520 

09530 

09540 

09550 

09560 

09570 

09580 

09590 

09600 

09610 

09620 

09630 

09640 

09650 

09660 


MOVE  EFH-PRINT-TITLE  TO  EFGH-G-TITLE, 

IF  RPT-CODE  =  "E" 

MOVE  "SCHEDULED- INSPECTION”  TO  VAR-TITLE 
MOVE  "03"  TO  VAR-WUC. 

IF  RPT-CODE  =  "F" 

MOVE  "SPECIAL- INSPECT I ON"  TO  VAR-TITLE 
MOVE  "04"  TO  VAR-WUC. 

IF  RPT-CODE  =  "G" 

MOVE  "  T  -  C  -  T  -  0"  TO  VAR-TITLE 
MOVE  G-PRINT-TITLE  TO  EFGH-G-TITLE. 

IF  RPT-CODE  »  "H" 

MOVE  "UNITS  REMOVED"  TO  EFGH-D1 -HEAD-S'JBTITLE 
MOVE  "REMOVAL"  TO  EFGH-D2-H-SUBT I TLE 
MOVE  "CANNIBALIZATION"  TO  VAR-TITLE 
MOVE  "XX"  TO  VAR-WUC. 

MOVE  ZERO  TO  PAGE-CTR. 

MOVE  VAR-WUC  TO  BAD-WUC-ID,  BAD-WUC-NAME-WUC-ID. 

PERFORM  200-EFGH-HDR . 

PERFORM  700-SPIN-DOWN-HEADERS  THRU  704-SDH-EXIT. 

IF  RPT-CODE  NOT  -  OLD-RPT-CODE 
IF  RPT-OPTION  =  2 

PERFORM  310-REPORT-SUPPRESSED 
GO  TO  002-PICK 
ELSE 

PERFORM  SOO-NO-DATA-FOR-REPORT 
GO  TO  002-PICK. 

MOVE  SPACES  TO  OLD-PSEUDO-WUC-TCTO. 

OPEN  INPUT  B4-FIL. 

MOVE  "A"  TO  B4-0PEN. 

MOVE  LOW- VALUE  TO  B4-PSEUD0-WUC. 

IF  OLD-RPT-CODE  =  "H" 

PERFORM  3 1 O-H-PROCESS  THRU  310-EXIT 
ELSE 

PERFORM  2 1 O-EFG-PROCESS  THRU  210-EXIT. 

GO  TO  002-PICK. 

* 

* 

200-EFGH-HDR. 

ADD  1  TO 

TOTAL-PAGE-COUNT 

PAGE-CTR. 

MOVE  PAGE-CTR  TO  EFGH-PAGE-NBR. 

WRITE  OUT  FROM  EFGH-1HDR  AFTER  ADVANCING  TOP. 

WRITE  OUT  FROM  REPORT-GROUP-SUBHEADER  AFTER  ADVANCING  1. 
WRITE  OUT  FROM  EFGH-2HDR  AFTER  ADVANCING  1. 

MOVE  3  TO  LINE-CTR. 

* 

* 

21 O-EFG-PROCESS. 

5  DISPLAY  "210-EFG-PR0CESS" . 

5  DISPLAY  "  RPT-REC="  RPT-REC 

FIGURE  G-2.  JG05A/CDEP/CSTAR/P3.C 
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09670 
09680 
09690 
09700 
09710 
09720 
09730 
09740 
09750 
09760 
09770 
09780 
09790 
09300 
09810 
09820 
09830 
09840 
09350 
09360 
09870 
09880 
09890 
09900 
09910 
09920 
09930 
09940 
09950 
09960 
09970 
09930 
09990 
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10020 
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10130 
10140 
10150 
10160 
10170 


*  TEST  CONTROL  BREAK  CHANGES 
IF  RPT-CODE  NOT  =  OLD-RPT-CODE 

PERFORM  230-END-0LD-WUC  THRU  230-EXIT 
PERFORM  275-CL0SE-B4 
GO  TO  210-EXIT. 

DISPLAY  "  OLD-RPT-CQDE="  OLD-RPT-CODE. 

DISPLAY  “  TCTQ="  TCTO  OLD-PSEUDO- WUC-TCTO=" 
QLD-PSEUDO-WUC-TCTO  “- " . 

IF  OLD-RF  T-CODE  =  "G" 

*  SG  RErORT  TCTO  CTL  BREAK  CHECK 
IF  TCTO  NOT  =  OLD-PSEUBG-WUC-TCTO 

PERFORM  230-END-0LD-WUC  THRU  230-EXIT 
ELSE 

NEXT  SENTENCE 

ELSE 

*  SE/SF  REPORT  WUC  CTL  BREAK  CHECK 
IF  PSEUDQ-WUC  NOT  =  OLD-PSEUDO-WUC 

PERFORM  230-END-QLD-WUC  THRU  230-EXIT. 
DISPLAY  "  AFSC=”  AFSC  GLD-AFSC=" 

5  OLD- AFSC 

IF  AFSC  NOT  -  OLD- AFSC 

PERFORM  240-END-0LD- AFSC  THRU  240-EXIT. 

*  *  END  OF  CONTROL  BREAK  CHECKS 

ADD  MANHOURS  TO  EFGH-MNHRS  (EFGH-SS) . 

ADD  UNITS-PROD  TO  EFGH-UNITS  (EFGH-SS). 

PERFORM  320-READER. 

GO  TO  2 1 O-EFG-PROCESS . 

* 

210-EXIT. 

EX  I 

* 

* 

230-END-QLD-WUC . 

IF  OLD-PSEUDO-WUC-TCTO  =  SPACES 
GO  TO  230-PR0CESS-NEW-WUC . 

*  *  PROCESS  OLD  EFG-WUC/TCTO 

IF  EFGH-CURRENT-ST ART  NOT  =  EFGH-END 
MOVE  EFGH-CURRENT-ST  ART  TO  EFGH-SS 
PERFORM  250-EFG-RPT-GUT  THRU  250-EXIT 
MOVE  EFGH-CURRENT-ST  ART  TO  EFGH-START 
PERFORM  260-RETURN-BLOCK. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
GO  TO  230-EXIT. 

* 

230-PROCESS-NEW- WUC . 

MOVE  EFGH-END  TO 

EFGH-CURRENT-ST ART 
EFGH-LAST. 

MOVE  SPACES  TO  OLD- AFSC. 

IF  OLD-RPT-CODE  =  "G" 

MOVE  TCTO  TO 


FIGURE  G-2.  JG05A/CDEP/CSTAR/P3. C 
(UNCOMPILED  VERSION  CONT'D) 


G-116 


10180 
10190 
10200 
10210 
10220 
10230  * 
1024C 
10250 
10260  * 
10270  * 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380  * 
10390 
10400 
10410  * 
10420  * 
10430 
10440 
10450 
10460 
10470 
10480  * 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 


GLD-PSEUDO-WUC-TCTQ 
G-PRINT-TCTG 
GO  TO  230-EXIT. 

MOVE  PSEUDO-WUC  TO  GLD-PSEUDO-WUC-TCTQ. 
PERFORM  290-SEARCH-B4-WUCS-AND-SET . 

230-EXIT. 

EXIT. 


240-END-0LD-AFSC . 

PERFORM  280-GETASL0T . 

IF  EFGH-LAST  =  EFGH-END 

MOVE  EFGH-SS  TO  EFGH-CURRENT-ST ART 
ELSE 

MOVE  EFGH-SS  TO  EFGH-LINK  (EFGH-LAST). 
MOVE  EFGH-SS  TO  EFGH-LAST. 

MOVE  AFSC  TO 
OLD-AFSC 

EFGH-AFSC  < EFGH-SS). 


240-EXIT. 

EXIT. 


250-EFG-RPT-0UT . 

MOVE  ZERO  TO 

EFGH-TOT AL-UN I TS 
EFGH-TOT  AL-MNHRS . 

MOVE  EFGH-SS  TO  EFGH-START. 

250— AFSC— TOT AL— LOOP . 

IF  EFGH-SS  NOT  *  EFGH-END 

ADD  EFGH-MNHRS  (EFGH-SS)  TO  EFGH-TOT  AL-MNHRS 
ADD  EFGH-UNITS  (EFGH-SS)  TO  EFGH-TOT AL-UN ITS 
MOVE  EFGH-LINK  (EFGH-SS)  TO  EFGH-SS 
GO  TO  250- AFSC-TOT AL-LOOP . 

MOVE  EFGH-START  TO  EFGH-SS. 

MOVE  EFGH-TOT  AL-MNHRS  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  EFGH-D2-T0TAL-MNHRS. 

MOVE  EFGH-TOT  AL-UN I TS  TO  EFGH-D1 -TOTAL-UNITS. 

MOVE  SPACES  TO 

EFGH-D 1 - AFSC-STUFF 
EFGH-B2-AFSC-STUFF 
EFGH-GROUP-HEAD-AFSC-T I TLE . 

MOVE  EFGH-PR I NT-T I TLE  TO  EFGH-GROUP-HEAD-T I TLE . 

MOVE  3  TO  TEMP. 

IF  RPT-OPTION  *  1 

MOVE  EFGH-END  TO  EFGH-SS 
GO  TO  250-WRITER. 

MOVE  AFSC-TITLE  TO  EFGH-GROUP-HEAD-AFSC-T I TLE. 
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10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
HOOO 
11010 
11020 
11030 
11040 
11050 
1 1060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
15  160 
11170 
11180 
11190 


250-L0 AD- AFSC-DATA . 

PERFORM  255-BU I LD- AN- AFSC-EFG-ENTRY 
VARYING  EFGH-SS1  FROM  1  BY  1 
UNTIL  EFGH-SS1  >  6. 

* 

250-WRITER. 

IF  LINE-CTR  +  TEMP  +  3  >  MAX-L I NES-PER-PAGE 
PERFORM  200-EFGH-HDR. 

WRITE  OUT  FROM  EFGH-GRQUP-HEAD  AFTER  ADVANCING  TEMP. 

WRITE  OUT  FROM  EFGH-DTL-1  AFTER  2. 

WRITE  OUT  FROM  EFGH-DTL-2  AFTER  1. 

ADD  LINE-CTR  TEMP  3  GIVING  LINE-CTR. 

IF  EFGH-SS  =  EFGH-END 
GO  TO  250-EXIT. 

MOVE  2  TO  TEMP. 

MOVE  SPACES  TO 

EFGH-GROUP-HEAD-T I TLE 
EFGH-D1 -TOTAL 
EFGH-D2-T0T  AL . 

GO  TO  250-L0 AD- AFSC-DATA. 

* 

250-EXIT. 

EXIT. 

* 

* 

255-BU I LD- AN- AFSC-EFG-ENTRY . 

IF  EFGH-SS  =  EFGH-END 
MOVE  SPACES  TO 

EFGH-GROUP-HEAD- AFSC  ( EFGH-SS 1 ) 

EFGH-D 1 -VALUE  <EFGH-SS1> 

EF GH-D2- VALUE  ( EFGH-SS 1) 

ELSE 

MOVE  EFGH-AFSC  < EFGH-SS)  TO 

EFGH-GROUP-HEAD- AFSC  ( EFGH-SS 1 ) 

MOVE  EFGH-UNITS  (EFGH-SS)  TO  EFGH-D 1 -UN ITS  ( EFGH-SS 1) 
MOVE  EFGH-MNHRS  (EFGH-SS)  TO  UNIT-DUMMY 
MOVE  TENTH-DUMMY  TO  EFGH-D2-MNHRS  ( EFGH-SS 1) 

MOVE  EFGH-LINK  (EFGH-SS)  TO  EFGH-SS. 

* 

* 

/  •  ~ 

260-RETURN-BLOCK . 

5  DISPLAY  " 260-RETURN-BLOCK". 

5  MOVE  EFGH- AVAIL  TO  UNIT-DUMMY. 

5  DISPLAY  “  EFGH- A VAIL  (A)  ="  UNIT-DUMMY. 

IF  EFGH-LAST  NOT  =  EFGH-END 

MOVE  EFGH-AVAIL  TO  EFGH-LINK  (EFGH-LAST) 

MOVE  EFGH-START  TO  EFGH-AVAIL. 

5  MOVE  EFGH-AVAIL  TO  UNIT-DUMMY. 

5  DISPLAY  ’*  EFGH-AVAIL  (B)  ="  UNIT-DUMMY. 
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11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 


* 

* 

# 

270-INPUT-B4. 

IF  B4-0PEN  =  "A" 

READ  B4-FIL 
AT  END 

PERFORM  275-CLOSE— B4 . 

* 

# 

* 

275-CL0SE-B4. 

IF  B4-0PEN  =  “A" 

CLOSE  B4-FIL 

MOVE  "B"  TO  B4-0PEN 

MOVE  HIGH-VALUE  TO  B4-PSEUD0-WUC . 

* 

* 

* 

280-GET ASLOT. 

5  DISPLAY  " 280-GET  ASLOT’*. 

5  MOVE  EFGH-AVAIL  TO  UNIT-DUMMY. 

5  DISPLAY  “  EFGH- AVA I L= “  UNIT-DUMMY. 

5  MOVE  EFGH-END  TO  UNIT-DUMMY. 

5  DISPLAY  "  EFGH-END  ="  UNIT-DUMMY. 

IF  EFGH-AVAIL  =  EFGH-END 
MOVE  ZERO  TO  ERR-COUNT 
MOVE  "LAST*'  TO  ERR-REASON 
PERFORM  830-QUTPUT-ERR 
MOVE  "TABL"  TO  ERR-REASON 
MOVE  ALL  '**”  TO  RPT-REC 
PERFORM  830-QUTPUT-ERR  3  TIMES 

MOVE  ”***  AFSC  TABLE  OUT  OF  ROOM  -  FATAL  ***"  TO 
RPT-REC 

PERFORM  830-QUTPUT-ERR 
GO  TO  999-EOF. 

MOVE  EFGH-AVAIL  TO  EFGH-SS. 

MOVE  EFGH-LINK  (EFGH-AVAIL)  TO  EFGH-AVAIL. 

MOVE  EFGH-END  TO  EFGH-LINK  (EFGH-SS). 

MOVE  ZERO  TO 

EFGH-UNITS  (EFGH-SS) 

EFGH-MNHRS  (EFGH-SS). 

* 

* 

* 

290-SEARCH-B4-WUCS-AND-SET . 

IF  PSEUDO-WUC  >  B4-PSEUDQ-WUC 
PERFORM  270— INPUT— B4 
GO  TO  290-SEARCH-B4-WUCS-AND-SET. 

MOVE  REAL-WUC  TO  EFH-PRINT-WUC. 

IF  PSEUDO-WUC  =  B4-PSEUDO-WUC 
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11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11300 

11810 

11320 

11330 

11840 

1135C 

11860 

11870 

11380 

11390 

11900 

11910 

11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

1.2190 

12200 

12210 


MOVE  B4-WUC-TITLE  TO  EFH-PR I NT -NAME 
ELSE 

MOVE  NQT-B4-WUC-T I TLE  TO  EFH-PR I NT-NAME. 

* 

* 

300-INITIAL. 

MOVE  EFGH-END  TO  EFGH-SS. 

MOVE  EFGH-MAX  TO  EFGH-AVAIL. 

5  BISFLAY  "300-INITIAL" . 

5  MOVE  EFGH-SS  TO  UNIT-DUMMY. 

5  DISPLAY  "  EFGH-SS  ="  UNIT-DUMMY. 

5  MOVE  EFGH-AVAIL  TO  UNIT-DUMMY. 

5  DISPLAY  "  EFGH-AVAIL^"  UNIT-DUMMY. 

* 

300-LI NK-2-TABLE-ENTR I ES . 

MOVE  EFGH-SS  TO  EFGH-LINK  (EFGH-AVAIL). 

MOVE  EFGH-AVAIL  TO  EFGH-SS. 

SUBTRACT  1  FROM  EFGH-AVAIL. 

IF  EFGH-AVAIL  NOT  =  ZERO 

GO  TO  300-L I NK-2-T ABLE-ENTR I ES . 

MOVE  EFGH-SS  TO  EFGH-AVAIL. 

5  DISPLAY  "300-INITIAL  (JUST  BEFORE  300-EXIT)". 

5  MOVE  EFGH-AVAIL  TO  UNIT-DUMMY. 

5  DISPLAY  “  EFGH-AVAIL="  UNIT-DUMMY. 

* 

300-EXIT. 

EXIT. 

* 

* 

/ 

3 1 O-H-PROCESS . 

*  *  TEST  CONTROL  BREAK  CHANGES 
IF  RPT-CODE  NOT  =  OLD-RPT-CODE 

PERFORM  320-END-QLB-H-WUC  THRU  320-EXIT 
GO  TO  310-EXIT. 

IF  PSEUDO-WUC  NOT  =  OLB-PSEUDO-WUC 

PERFORM  320-END— OLD-H-WUC  THRU  320-EXIT. 
IF  AFSC  NOT  =  OLD-AFSC 

PERFORM  330-END-0LD-H-AFSC  THRU  330-EXIT. 

*  *  END  OF  CONTROL  BREAK  CHECKS 
IF  R- I -FLAG  =  "I" 

MOVE  H-RI-I-S3  TO  EFGH-SS 
ELSE 

MOVE  H-RI-R-SS  TO  EFGH-SS. 

ADD  MANHOURS  TO  EFGH-MNHRS  (EFGH-SS). 

ADD  UNITS-PRGD  TO  EFGH-UNITS  (EFGH-SS). 
PERFORM  820-READER. 

GO  TO  310— H— PROCESS. 

* 

310-EXIT. 
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12220 

12230 

12240 

12250 

12260 

12270 

12230 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12330 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12430 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

12570 

12530 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 

12670 

12680 

12690 

12700 

12710 

12720 


EXIT. 

* 

* 

320-END-QLD-H-WUC . 

IF  OLD-PSEUDO- WUC  =  SPACES 

GO  TO  320-PR0CESS-NEW-H-WUC. 

*  *  PROCESS  OLD  H-WUC. 

IF  EFGH-CURRENT-ST ART  NOT  =  EFGH-END 
MOVE  EFGH-CURRENT-ST  ART  TO  ECGH-SS 
PERFORM  340-H-RPT-0UT  THRU  340-EXIT 
MOVE  EFGH-CURRENT-ST  ART  TO  EFGH-START 
PERFORM  260-RETURN-BLOCK. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
GO  TO  320-EXIT. 

* 

320— PROCESS-NEW-H-WUC . 

MOVE  EFGH-END  TO 

EF  GH-CURRENT-ST  ART 
EFGH-LAST . 

MOVE  SPACES  TO  OLD-AFSC. 

MOVE  PSEUDG-WUC  TO  OLD-PSEUDO-WUC. 

PERFORM  290-SEARCH-B4-WUCS-AND-SET . 

« 

320-EXIT. 

EXIT. 

* 

* 

330-ENB-0LD-H-AF  SC . 

*  *  THIS  CODE  DOES  NOTHING  FOR  THE  OLD  AFSC  (THERE  IS 

*  *  NOTHING  THAT  NEEDS  TO  BE  DONE).  IT  JUST  SETS  UP  THE 

*  *  NEW  AFSC. 

PERFORM  280-GET ASLOT. 

MOVE  EFGH-SS  TO  H-RI-R-SS. 

PERFORM  280-GET ASLOT. 

MOVE  EFGH-SS  TO 

H-RI-I-SS 

.  EFGH-LINK  (H-RI-R-SS). 

IF  EFGH-LAST  =  EFGH-END 

MOVE  H-RI-R-SS  TO  EFGH-CURRENT-ST ART 
ELSE 

MOVE  H-RI-R-SS  TO  EFGH-LINK  (EFGH-LAST). 

MOVE  H-RI-I-SS  TO  EFGH-LAST. 

MOVE  AFSC  TO 
OLD-AFSC 

EFGH-AFSC  (H-RI-R-SS) 

EFGH— AFSC  (H-RI-I-SS). 

* 

330-EXIT. 

EXIT. 

* 

* 
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12730 

12740 

12750 

12760 

12770 

12730 

12790 

12300 

12810 

12820 

12830 

12340 

12850 

12860 

12370 

12880 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13030 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 

13230 


340-H-RPT-GUT. 

MOVE  ZERO  TO 

EFGH-TOT AL-UN ITS 
EFGH-TOTAL-MNHRS 
H-TOTAL-UNITS-I 
H-TOTAL-MNHRS-I. 

MOVE  EFGH-SS  TO 
EF6H-START 
H-RI-R-SS. 


340-AFSC-T0TAL— LOOP. 


IF  H-RI-R-SS  NOT  =  EFGH-END 
MOVE  EFGH-LINK  < H-RI-R-SS) 

ADD  EFGH-MNHRS 
ADD  EFGH-UNITS 
ADD  EFGH-MNHRS 
ADD  EFGH-UNITS 
MOVE  EFGH-LINK 
GO  TO  340- AFSC-TQT AL-LOOP. 

MOVE  EFGH-START  TO  H-RI-R-SS. 

MOVE  EFGH-TOTAL-MNHRS  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  EFGH-D2-T OT AL-MNHR3 . 

MOVE  EFGH-TOT AL-UN ITS  TO  EFGH-D1 -TOTAL-UNITS. 


(H-RI-R-SS) 

(H-RI-R-SS) 

(H-RI-l-SS) 

(H-RI-I-SS) 

(H-RI-I-SS) 


TO  H-RI-I-SS 
TO  EFGH-TOTAL-MNHRS 
TO  EFGH-TOT AL-UN ITS 
TO  H-TOTAL-MNHRS— I 
TO  H-TOTAL— UNITS-1 
TO  H-RI-R-SS 


MOVE  H-TOTAL-MNHRS-I  TO  UNIT-DUMMY. 

MOVE  TENTH-DUMMY  TO  H-D4-TGTAL— MNHRS. 

MOVE  H-TOTAL-UNITS-I  TO  H-D3-TOT AL-UN ITS. 


MOVE  SPACES  TO 

EFGH-D 1 -AFSC— STUFF 
EFGH-D2-AFSC-STUFF 
H-D3-AFSC-STUFF 
H-D4-AFSC-STUFF 
EFGH-GROUP-HEAD-AFSC-T I TLE . 

MOVE  EFGH-PRINT-TITLE  TO  EFGH-GROUP-HE  AD-T I  TLE . 

MOVE  3  TO  TEMP. 

IF  RPT-OPTION  =  1 

MOVE  EFGH-END  TO  H-RI-R-SS 
GO  TO  340-0UTPUT-H-DETAI L-RLOCK . 

MOVE  AFSC-TITLE  TO  EFGH-GROUP-HEAD-AFSC-T ITLE. 


* 

340-SET— UP-H- AFSC-DTL-BLOCK . 

PERFORM  35G-BU I LD- AN-AFSC-H-ENTR Y 
VARYING  EFGH-SS1  FROM  1  BY  1 
UNTIL  EFGH-SS1  >  6. 

* 

340-OUTPUT -H-DET A I L-BLOCK . 

IF  LINE-CTR  +  TEMP  +  5  >  MAX-LINES-PER-PAGE 
PERFORM  200-EFGH-HDR. 

WRITE  OUT  FROM  EFGH-GROUP-HE AD  AFTER  TEMP. 
WRITE  OUT  FROM  EFGH-DTL-1  AFTER  2. 

WRITE  OUT  FROM  EFGH-DTL-2  AFTER  1. 

WRITE  OUT  FROM  H-DET AIL-3  AFTER  1. 
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13240 

13250 

13260 

13270 

13230 

13290 

13300 

13310 

13320 

13330 

13340 

13350 

13360 

13370 

13330 

13390 

13400 

13410 

13420 

13430 

13440 

13450 

13460 

13470 

13430 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13530 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13630 

13690 

13700 

13710 

13720 

13730 

13740 


WRITE  OUT  FROM  H-DETAIL-4  AFTER  1. 

ADD  LINE-CTR  TEMP  5  GIVING  LINE-CTR. 

IF  H-RI-R-SS  NOT  =  EFGH-END 
MOVE  2  TO  TEMP 
MOVE  SPACES  TO 

EFGH-GROUP-HEAD-T I TLE 
EFGH-D1 -TOTAL 
EFGH-D2-T0TAL 
H-D3-T0TAL 
H-D4-T0TAL 

GO  TO  340-SET-UP-H- AFSC-DTL-BLOCK . 

* 

340-EXIT. 

EXIT. 

# 

* 

350-BU ILD-AN-AFSC-H-ENTRY . 

IF  H-RI-R-SS  =  EFGH-END 
MOVE  SPACES  TO 

EFGH-GROUP-HE AD- AFSC  ( EFGH-SS 1 ) 

EFGH-D 1 -VALUE  <  EFGH-SS 1 ) 

EFGH-D2-VALUE  (EFGH-SS1) 

H-D3- VALUE  < EFGH-SS 1) 

H-D4-VALUE  < EFGH-SS 1) 

ELSE 

MOVE  EFGH-LINK  (H-RI-R-SS)  TO  H-RI-I-SS 
MOVE  EFGH-AFSC  (H-RI-R-SS)  TO 

EFGH-GROUP-HEAD-AFSC  ( EFGH-SS 1 ) 

MOVE  EFGH-UNITS  (H-RI-R-SS)  TO 
EFGH-D 1 -UN ITS  (EFGH-SS1) 

MOVE  EFGH-MNHRS  (H-RI-R-SS)  TO  UNIT-DUMMY 
MOVE  TENTH-DUMMY  TO  EFGH-D2-MNHRS  ( EFGH-SS 1) 

MOVE  EFGH-UNITS  (H-RI-I-SS)  TO  H-D3-UNITS  (EFGH-SS1) 
MOVE  EFGH-MNHRS  (H-RI-I-SS)  TO  UNIT-DUMMY 
MOVE  TENTH-DUMMY  TO  H-D4-MNHRS  ( EFGH-SS 1) 

MOVE  EFGH-LINK  (H-RI-I-SS)  TO  H-RI-R-SS. 

* 

# 

/ 

700- SP I N-DO WN-HE ADERS . 

*  *  THESE  PARA'S  (NUMBERED  700  TO  704)  SPIN  DOWN  THRU 

*  *  THE  MULTIPLE  HEADERS  OF  A  MERGED  RPT-FILE  (A  SELEC- 

*  *  TION  REPORTS  DATA  FILE  FROM  MORE  THAT  1  RUN  OF  THE 

*  *  SELECTION  PROGRAM).  THIS  CODE  CAUSES  THEM  TO  BE 

*  *  PRINTED,  ALSO. 

MOVE  "HDR  "  TO  ERR-REASON. 

* 

702-SDH-L00P. 

PERFORM  830-0UTPUT-ERR . 

PERFORM  320-READER. 

IF  RPT-CODE  NOT  =  OLD-RPT-CODE 
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13750  GO  TO  704-SDH-EXIT. 

13760  IF  HEADER-KEY-2  NOT  =  LOW- VALUE 

13770  GO  TO  704-SDH-EXIT. 

13730  MOVE  "HDR2"  TO  ERR-REASON. 

13790  IF  OPTION  <  RPT-OPTION 

13S00  MOVE  OPTION  TO  RPT-OPTION. 

13810  GO  TO  702-SDH-L00P. 

13820  * 

13830  704-SDH-EXIT. 

13840  EXIT. 

13850  * 

13860  / 

13870  800-N0-D AT A-FOR-REPORT . 

13880  MOVE  “NO  DATA  FOR  THIS  SELECTION  REPORT''  TO  OUT. 

13890  WRITE  OUT  AFTER  ADVANCING  20  LINES. 

13900  * 

13910  * 

13920  * 

13930  * 

13940  * 

13950  310-REPORT-SUPPRESSED. 

13960  MOVE  ''THIS  SELECTION  REPORT  WAS  USER-SUPPRESSED"  TO  OUT. 

13970  WRITE  OUT  AFTER  ADVANCING  20  LINES. 

13980  * 

13990  * 

14000  * 

14010  * 

14020  * 

14030  820-READER. 

14040  *  *  THIS  PARA  READS  RECORDS  FROM  RPT-FIL  (SELECTION 

14050  *  *  REPORTS  DATA  FILE)  AND  COUNTS  THEM.  WHEN  THE  FILE 

14060  *  *  TERMINATES.  THE  CODE  BUILDS  THE  DUMMY  "Z"-CODED 

14070  *  *  HEADER  RECORD  FOR  DETECTION  ELSEWHERE. 

14080  ADD  1  TO  IN-COUNT. 

14090  READ  RPT-FIL 

14100  AT  END 

14110  MOVE  LOW-VALUE  TO  RPT-REC 

14120  MOVE  "Z"  TO  RPT-CODE. 

14130  * 

14140  * 

14150  * 

14160  * 

14170  * 

14130  830-0UTPUT-ERR . 

14190*  *  THIS  PARA  FINISHES  THE  BUILDING  OF  THE  OUTPUT  RECORD 

14200  *  *  GOING  TO  ERR-FIL  AND  WRITES  IT.  IT  FORCES  PROGRAM 

14210  *  *  TERMINATION  IF  MORE  THAN  100  ERROR  OUTPUTS  OCCUR. 

14220  MOVE  RPT-REC  TO  ERR-DETAIL. 

14230  '  MOVE  IN-COUNT  TO  ERR-CNT. 

14240  WRITE  ERR  FROM  ERR-OUT  AFTER  ADVANCING  2. 

14250  ADD  1  TO  ERR-COUNT. 

FIGURE  G-2.  JG05A/CDEP/ CSTAR/P3 . C 
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14260 

14270 

142S0 

14290 

14300 

14310 

14320 

14330 

14340 

14350 

14360 

14370 

14380 

14390 

14400 

14410 

14420 

14430 

14440 

14450 

14460 


IF  ERR-COUNT  >100 

WRITE  ERR  FROM  ERR-L I M I T-MS6  AFTER  3 
GO  TO  999-EOF. 

# 

/ 

999-EOF. 

MOVE  ZERO  TO  ERR-COUNT. 

MOVE  “****"  TO  ERR-REASON. 

MOVE  “  END  OF  PROCESSING.  INPUT  RECORD  COUNT  I  S’*  TO 
RPT-REC. 

PERFORM  830-0UTPUT-ERR. 

MOVE  TOTAL-PAGE-COUNT  TO  IN-COUNT. 

MOVE  "  TOTAL  SELECTION  REPORT  OUTPUT  PAGE  COUNT  IS"  TO 
RPT-REC. 

PERFORM  S30-0UTPUT -ERR . 

PERFORM  275-CLQSE-B4 . 

CLOSE 

ERR-FIL 

RPT-FIL 

OUT-FIL. 

STOP  RUN. 


FIGURE  G-2.  JG05A/CDEP/CSTAR/P3. C 
(UNCOmPILED  VERSION  CONT'D) 
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ANALYSIS  PROGRAM  LISTING 


APPENDIX  H.  ANALYSIS  PROGRAM  LISTING 


A.  JG05A/CDEP/DET.REC 

Function.  Determines  percentage  and  manhours  of  records 
that  have  a  record  id  of  1  or  3. 

Determines  what  percentage  of  records  have  acceptable 
maintenance  codes  and  when  discovered  code.  • 

Also  determines  the  rate,  in  manhours  per  sortie,  that 
unscheduled  off-equipment  maintenance  is  required.  This  is 
done  by  accumulating  manhours  for  records  with  a  record  id 
of  3,  or  an  id  of  1  if  the  SRD  belongs  to  an  engine. 

Listing.  Figure  H-l. 


H-l 


1010* 
1020* 
1030* 
1040* 
1050* 
1060* 
1070* 
1030* 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1130 
1190 
1200* 
1210 
1220 
1230 
1240 
1250 
1260 
1270* 
1230 
1290 
1300 
1310 
1320 
1330  5 
1340* 
1350 
1360  7 
1370* 
1330  10 
1390* 
1400 
1410* 
1420 
1430 
1440  12 
1450* 
1460  14 
1 470* 
1430  16 
1490 
1500* 
1510 


*  JG05A /  CDEP / DET . REC 

*  THIS  PROGRAM  DETERMINES  THE  PERCENTAGE  OF  RECORDS  (AND 

*  MAN-HOURS)  WHICH  HAVE  A  SPECIFIED  RECORD  ID  (1  OR  3)  WITHIN 

*  AN  AF3C  OR  WITHIN  AN  AFSC  AND  SRD.  ALSO  DETERMINED  IS 

*  WHAT  FRACTION  OF  THE  RECORDS  HAVE  ACCEPTABLE  TYPE 

*  MAINTENANCE  AND  WHEN  DISCOVERED  CODES. 

INTEGER  AF3CINDX,RECID, IDSRD 

INTEGER  OFFINDX ( 100) * ILMINDX  < 100) ,  TMINDX 

REAL  RECKNT < 1 00 ,3,2), SUMHRS ( 1 00 , 3, 2 ) ,  I NKNTR (100,2), 

&OUTKNTR ( 1 00 ) , ACCPTM < 1 00 , 3 , 2 ) , 

&INKNTM( 100, 2) , OUTKNTM ( 100) , MANHRS, ACCPTRt 100, 3,2) 

REAL  DUMREC ( 3 ) , DUMHRS <  3 ) 

REAL  OFFHRS(IOO) 

CHARACTER  AFSC*5  ( 1 00 ) ,  SRD*3  (2,4),  TYF'MTN*  1 ,  WDC*  1 ,  WDCSET*  1(17), 
&TMSET*1 ( 5) , NEWSRD*3 

CHARACTER  0FFMAP*5( 100) , ILMMAP*5( 100) , TMMAP*5, TFMAP*5 
LOGICAL  NOILM 

DATA  RECKNT / 600*0.0/, SUMHRS/ 600*0. 0/ , INKNTR/200*0. 0/ 

DATA  OIJTKNTR/ 100*0. 0/ ,  lNKNTM/200*0.  0/ ,  OUTKNTM/ 100*0. 0/ 

DATA  ACCPTR/ 600*0 . 0/ , ACCPTM/600*0 . Of 

DATA  WDCSET/  'A',  "C",  'D'»  'E'  ,  'F',  'H',  'J',  'K' ,  •'N*' ,  ,  'Q' ,  'R' , 

& ' V  ' ,  "2",  'W',  'X'-,  XY"/,TMSET/'B-',  'C',  'D',  '■J",  'S'/ 

DATA  3RD/3*X  '/ 

READ  (5,5)  NUMSRD 

READ  (5,5)  (SRD(1,  J),.J=1, NUMSRD) 

READ  (5,5)  <  SRD ( 2 , J ) , J= 1 , NUMSRD ) 

READ  (5,5)  SORTIES 
READ  (5,5)  NOILM 
FORMAT  (V) 

WRITE  (6,7)  ( ( SRD ( I , J ) , J= 1 , NUMSRD ) , 1=1 , NUMSRD ) 

FORMAT  (SOX, A3)) 

READ  ( 1 , 20 , END— 30 )  AFSC I ND X , TYPMTN , WDC , REC I D , NEwSRD , MANHRS 

DO  14  1=1,2 

DO  12  J=l, NUMSRD 

IF  (SRD( I, J).EQ. NEWSRD)  GO  TO  16 
CONTINUE 

CONTINUE 

IDSRD=I 

IF  (RECID.GT.3)  RECID=2 
DO  21  1=1,5 
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1520  IF  ( TYPMTN .  EQ . TMSET ( I )  )  GO  TO  22 

1530  21  CONTINUE 

1540* 

1550  GO  TO  25 

1560* 

1570  22  DO  23  J=l, 17 

1530  IF  ( WDC . EC? . WDCSET (J)>  GO  TO  24 

1590  23  CONTINUE 

1 600* 

1610  GO  TO  25 

1 620  24  ACCPTR  <  AF3C I NDX , REC ID, I DSRD ) = ACCPTR ( AFSC I  NDX ,  REC I D ,  I DSRD )  + 1 

1630  ACCPTM ( AFSC I NDX , REC ID, I DSRD ) = ACCPTM (  AFSC I ND X , REC I D , IDSRD)+ 

1640  it  MANHRS 

1650  25  RECKNT (AFSCINDX, RECID, IDSRD)=RECKNT( AFSCINDX, RECID, IPSRD)+1 
1660  SUMHRS( AFSCINDX, RECID, IDSRB)=SUMHRS(AFSCINDX,R£CID, IDSRD>+ 

1670-  it  MANHRS 

1630  INKNTR ( AFSC I NDX, IDSRD )=INKNTR( AFSCINDX, IDSRD/+1 

1690  I  NK'NTM  <  AFSCINDX ,  I  DSRD ) = I NKNTM  ( AFSC  I  NDX »  I  DSRD )  +MANHRS 

1700  OUTKNTR ( AFSCINDX ) =OUTKNTR <  AFSCINDX )  + 1 

1710  OUTKNTM ( AFSC I NDX ) =OUTKNTM ( AFSCINDX ) +MANHRS 

1720  GO  TO  10 

1 730  20  FORMAT  < 12, 2A1 , I 1 , A3, F4. 0 ) 

1740  30  CONTINUE 
1750* 

1760  DO  42  1=1,100 

1770  READ  •' 2 » 40 , £ND=43 )  AFSC(I) 

1730  40  FORMAT  (2X,A5) 

1790  42  CONTINUE 

1300* 

1810  43  JJ=I-1 
1320  L=0 

1830* 

1340  DO  90  1=1,  J.J 

1350  L=L+1 

1860  IF  (L.EQ.4)  WRITE  (6,50) 

1370  IF  (L.E0.4)  L=0 

1830  50  FORMAT  ("l") 

1890  WRITE  (6,60) 

1900  60  FORMAT  ( 'O', '  AFSC  REC  ID  3RD  #  REC  7.  IN 

1910  fc  '  7.  OUT  #  MHRS  7.  IN  7.  OUT  ACC  REC  >1  ACC  MANHRS', 

1920  &  '  y.n 

1930* 

1940*  *  THE  3RD  OF  THE  FIRST  MDS  IS  USED  WHEN  MORE  THAN  ONE 

1950*  *  SERIES  OF  AN  MDS  IS  PRESENT. 

1960* 

1 970  NEWSRD=SRO (1,1) 

1930* 

1990  DO  30  K= 1,2 

2000  IF  ( INKNTR(I,K).LT. 0.001)  I NKNTR ( I •? K )  =  1 . 0 

2010  IF  ( OUTKNTR  (  D.LT.0.001)  OUTKNTR  ( I )  =1 . 0 

2020  IF  ( I NKNTM ( I , K ) . LT. 0 . 001 )  I NKNTM ( I , K ) =1 . 0 

2030  IF  ( OUTKNTM  (  D.LT.0.001)  OUTK.mTM  ( I )  =  1 . 0 

2040* 
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2050 
2060 
2070 
2030 
2090 
2100  65 


2230* 


2520 

2530 


2540 
2550* 
2560  *110 
2570* 


DO  65  J=1 ,3 

DUMREC  ( J )  =RECKNT  ( I ,  J,  K ) 
DIJMHRS  <  J )  =SUMHRS  ( I ,  J , K ) 

I F  <  RECKNT < I , J , K ) . LT . 0 . GO 1 ) 
IF  < SUMHRS ( I, J.K) . LT. 0.001 ) 
CONTINUE 


DUMREC (J) =0.001 
DUMHRS(J) =0.001 


21 10* 

2120 

2130 

St 

2140 

St 

2150 

Zt 

2160 

&: 

2170 

St 

2  ISO 

S< 

2190  70 

2200 

■?< 

2210 

2220  80 

2240  90 

C 

2250 

2260* 

I 

2270* 

2280* 

* 

2290* 

2300* 

* 

2310* 

2320* 

-#• 

2330* 

* 

2340* 

if- 

2350* 

* 

2360* 

if- 

2370* 

2380* 

*■ 

2390* 

if- 

2400* 

* 

2410* 

if* 

2420* 

■S 

2430* 

2440* 

2450* 

2460* 

if- 

2470* 

2480* 

* 

2490 

2500 

2510 

II 

WRITE  ( 6 *  70 )  <  AFSC < I ) ,  J, NEW3RD , RECKNT <  I ,  J,  K ) , 

RECKNT ( I » J ,  K )  / 1 NKNTR < I , K ) * 1 00 . , RECKNT  < I,  J.K) /OUTKNTR (I)* 

100. , 

SUMHRS ( I , J, K ) , SUMHRS ( I, J.K)/ INKNTM < I , K) *100. , 

JMHRS ( I, J.K) /OUTKNTM ( I ) * 1 00 . , ACCPTR  < I , J, K ) , 

ACCF'TR  ( I .  J,  K)  /DUMREC  ( J )  *  1 00 .  .  ACCPTM  <  I ,  J ,  K ) . 

ACCPTM < I . J , K ) / DUMHRS < J ) * 1 00 . , J= 1 . 3 ) 

FORMAT  <2X, A5.4X. I1.6X. A3.2X.F6.0, IX, F6. 2. IX. F6. 2, 
1X.F7.0, 1X.F6.2, 1X,F6.2,3X,F6.0,2X,F6.2,3X,F7.0,4X,F6.2) 
NEWSRD-SRD(2» 1 > 

CONTINUE 


r  ( . NOT. NOILM)  STOP 

THIS  PORTION  OF  DET.REC  DETERMINES  THE  RATE,  IN  MAN-HOURS 
PER  SORTIE,  THAT  UNSCHEDULED  OFF-EQUIPMENT  MAINTENANCE 
IS  REQUIRED.  IT  DOES  THIS  BY  ACCUMULATING  MAN-HOURS  FOR 
RECORDS  WITH  A  RECORD  ID  OF  3,  OR  1  IF  THE  SRD  BELONGS  TO 
AN  ENGINE. 

TWO  FILES  ARE  READ  IN  FROM  CATALOGS  OFFMAP  AND  ILMMAP.  ONE 
FILE  IS  READ  FROM  EACH  CATALOG.  THE  OFFMAP  CATALOG  CONTAINS 
A  FILE  FOR  EACH  BASE  AND  AIRCRAFT  TYPE  AT  THAT  BASE.  IN 
THIS  FILE  IS  A  LIST  OF  OFF-EQ.  AFSC  S  AND  NUMBERS  TO  INDICATE 
THEIR  POSITION. 

CATALOG  ILMMAP  ALSO  CONTAINS  A  FILE  FOR  EACH  BASE  AND  AIR¬ 
CRAFT  TYPE.  IN  THESE  FILES  ARE  MAPPINGS  TO  PUT  TOGETHER 
DIFFERENT  WORK  CENTERS  WHICH  DO  THE  SAME  WORK.  WHEN  PUT 
TOGETHER  THE  INDEX  CORRESPONDS  TO  THE  NUMBERING  OF  AFSC  3  IN 
THE  OFFMAP  CATALOG  (FILE). 


100 

102 

105 


READ  OFFMAP  AND  ILMMAP  FILES 


READ  (03, 100,END=110)  OFFINDX < I ) , OFFMAP ( I ) 
WRITE  (6,102)  OFFINDX  < I ) , OFFMAP ( I ) 

FORMAT  (I2.A5) 

FORMAT  (1X.32.A5) 

CONTINUE 

LA ST 2=1-1 


FIGURE  H-l.  ANALYSIS  PROGRAM  LISTING  -  JG05A/CDEP/DET.REC  (CONT'D) 


H-4 


2580  DO  120  1=1,100 

2590  READ  <04, 115,END=130)  ILMMAP < I ) , ILMINDX ( I ) 

2600  115  FORMAT  < IX, AS, IX, 12) 

2610  120  CONTINUE 
2620* 

2630  130  LAST=I-1 
2640* 

2650*  *  END  INPUT. 

2660* 

2670*  *  ALPHABETIZE  OFFMAP  AND  ILMMAP.  THIS  IS  DONE  TO  ALLOW  ONE- 

2680*  *  PASS  WHEN  COMPARING  ILMMAP  AFSC  S  TO  THOSE  IN  THE  AFSC 

2690*  *  ARRAY  (MAP  2). 

2700* 

2710  WRITE  (6,135)  LAST , LAST 2 

2720  135  FORMAT  ( 10X,  'LAST=" ,  13,  '  LAST2=", 13) 

2730* 

2740  DO  150  1=1, LAST- 1 

2750* 

2760  DO  140  J=1 , LAST— I 

2770* 

2780  IF  (I LMMAP ( J ) . LE . I LMMAP < J+ 1 ) )  GO  TO  1 38 

2790  TMMAP= I LMMAP ( J ) 

2800  ILMMAP < J)=ILMMAP( J+l ) 

2810  ILMMAP (J+l ) =TMMAP 

2820  TM I NDX= ILMINDX ( J) 

2830  ILMINDX (J)=ILMINDX( J+l) 

2840  ILMINDX (J+l )=TMINDX 

2845  138  CONTINUE 

2850* 

2860  140  CONTINUE 
2370* 

2880  150  CONTINUE 
2890* 

2900  DO  170  M=1 , LAST2— 1 

2910* 

2920  DO  160  N=1 , LAST2-M 

2930* 

2940  IF  ( OFFMAP ( N ) , LE. OFFMAP <  N+l ) >  GO  TO  155 

2950  TFMAF-OFFMAP ( N ) 

2960  OFFMAP ( N ) =OFFMAP ( N+l ) 

2970  OFFMAP ( N+ 1 ) =TFMAP 

2975  155  CONTINUE 

2980* 

2990  160  CONTINUE 
3000* 

3010  170  CONTINUE 
3020* 

3030*  *  END  OF  ALPHABETIZATION.  PRINT  RESULTING  ORDERS  TO  BE  SURE 

3040*  *  AFSC  S  MATCH. 

3050* 

3060  WRITE  (6, ISO) 

3070  180  FORMAT  ( 'l',30X, "ILMMAP" //30X, 'AFSC', 3X» "INDEX"//) 

3080  WRITE  *6,190)  ( ILMMAP< I ), ILMINDX ( I ), 1=1 , LAST) 
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3090  190 

3100* 

3110 

3120  200 
3130 

3140  210 
3150* 

3 1 60* 

3170* 

3130* 

3190* 

3200* 

3210* 

3220 

3230* 

3240 

3250  215 
3260* 
3270 
3230 

3290  220 
3300* 
3310 
3320 

3330  230 
3340 

3350  235 

3360* 

3370  240 

3330* 

3390* 

3400* 

2410* 

3420* 

3430 

3440  250 

3450 

3460 

3470 

3430  260 

3490 

3500 


FORMAT  ( 30 X , AS , 3X , 12) 

WRITE  (6, 200 ) 

FORMAT  C'1',30X,  'GFFMAP'//30X,  'AFSC',3X,  '  INDEX-'//) 
WRITE  (6,210)  (0FFMAP(I),0FFINDX(I),I=1,LAST2> 
FORMAT  <  30 X , AS , 3X , 1 2 ) 


*  MATCH  ILMMAP  AFSC  3  TO  THOSE  IN  MAP  2,  THAT  IS  ARRAY  AFSC. 

*  INDEX  ASSOCIATED  WITH  ILMMAP  DETERMINES  THE  POSITinN 

*  IN  THE  OFFHRS  ARRAY. 


DO  240  1=1, LAST 


IF  ( ILMMAP (I). NE.AFSC(J) )  GO  TO  230 
DO  220  K=l, 2 

OFFHRS ( ILMINDX ( I > )=OFFHRS< ILMINDX ( I) )  +  ACCPTM(J,3,K) 
CONTINUE 

OFFHRS ( ILMINDX ( I ) ) =OFFHRS ( ILMINDX (15)  +  ACCPTM'.l,i,2) 

60  TO  235 

J=vM*l 

GO  TO  215 
CONTINUE 

CONTINUE 


*  PRINT  AND  WRITE  INTERMEDIATE  LEVEL  MAINTENANCE  MAN-HOURS  AND 

*  MAN-HOURS  PER  SORTIE. 


WRITE  (6,250) 

FORMAT  ( 'l',20X, 'WC  *  AFSC  TOTAL 

&  'MAN-HOURS  PER  SORTIE' ) 

WRITE  (6,260)  ( I, OFFMAP( I ) , OFFHRS ( I ) /10. , 
StOFFHRS ( I  >/(  10. *SORT IES) ,  1  =  1, LAST2 ) 

FORMAT  ( 23X , I2,3X» A5,5X,F7. 1,5X,F7.4> 

STOP 

END 


MANHOURS' / , 37 X . 
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APPENDIX  I.  SMALUCL  PROGRAM  LISTINGS 


A.  OS29/N241D/CDEP/PROGRAMS/ERR. CHEK 

Function.  Reads  combination  file  output  froa  JG05A/CDEP/ JCL/DB .CRE 
and  checks  to  sake  sure  the  start-time  on  Fora  349  and  the  start 
time  indicated  by  the  Job  Control  Nuaber  are  within  five 
days  of  one  another. 

Input.  CO.  Base  tape 

Output.  Print-out  of  the  nunber  of  *bad*  records,  as  well  as 
the  total  nuaber  of  records. 

Listing.  Figure  1-1. 

B.  0S29/N241D/CDEP/PR0GRAMS/REDTAB 

Function.  Reduces  and  tabulates  data 

Accuaulates  statistics  for  each  work  center  on  break  rates, 
nuaber  of  crews  and  service  rates. 

Coapletes  the  process  of  translating  standard  Air  Force 
maintenance  data  into  the  Sortie-Generation  aodel  queuing  inputs. 

Listing.  Figure  1-2. 


090******  0S29 / N24 1 D/CDEP / PROGRAMS/ ERR . CHEK 
100* 

110*  *  PROGRAM  READS  THE  COMBINATION  FILE  OUTPUT  FROM  CDEP  AND  DOES 

120*  *  THE  FOLLOWINGS 

130*  *  1.  CHECKS  TO  SEE  THAT  THE  START  TIME  INDICATED  BY 

140*  *  THE  JCN  AND  START  TIME  OF  THE  349  FORM  ARE  WITHIN 


130*  *  5  DAYS  OF  ONE  ANOTHER. 

160* 

170  CHARACTER  Xl*12, WUC*3, C0MP0S*3, X2*21 

130  INTEGER  JCN1 , START1 , DIF, BADDIF, BADWUC 

190* 

200  IG00D*0 

210  BADDIF=0 

220  BADWUC=0 

230  IT0TAL=>0 


240* 


250*  *  READ  A  RECORD 

260* 


270  5 

230  10 

290 

300* 

310* 

* 

320* 

330 

340 

350 

360 

370 

30 

380 

35 

390 

400 

410 

420  - 

♦0 

430* 

440* 

* 

450* 

460 

470 

430 

50 

490 

500* 

510* 

* 

520 

70 

530 

540 

80 

550 

560 

570 

530 

590 

90 

READ  (01* 10,END=70)  JCN1 , XI  * WUC, COMPOS, ST ART 1 , X2 
FORMAT  ( 13, A12, 2A3, 13, A21 ) 

ITOTAL-ITOTAL+1 

CHECK  TO  SEE  IF  A  GOOD  KcuoRJ. 

D I  F=  I ABS  <  JCN 1 -ST ART 1 ) 

IF  (DIF  .LE.  5)  GO  TO  30 
B ADD IF  •  B ADD IF  +  1 
GO  TO  5 

DECODE  (WUC, 35)  IND 
FORMAT  (12, IX) 

IF  (IND  .GE.  11)  GO  TO  40 
BADWUC  «  BADWUC  +  1 
GO  TO  5 
CONTINUE 

THIS  IS  A  GOOD  RECORD?  WRITE  IT  TO  UNIT  7. 

I GOOD™ I GOOD* 1 

WRITE  (7,50)  JCN 1, XI, WUC, COMPOS, START 1 , X2 
FORMAT  (IX, I3,A12,2A3, I3,A21) 

GO  TO  5 

END-OF-FILE  PROCESSING 
CONTINUE 

WRITE  (6,30)  ITOTAL, IGOOD, BADWUC+BADDIF, BADWUC, BADDIF 
FORMAT  {'!'///'  RECORDS  READ  =-',110/ 

&  '  GOOD  RECORDS  =',110/ 

Sc  '  BAD  RECORDS  =•',110/ 

Sc  5X,-'BAD  WUC  ',T30,I6/ 

Sc  5X,  'DIFF  TOO  HIGH  — %T30,  16) 

FORMAT  (IX- 'TOTAL  READ  =",I6,'  TOTAL  WRITTEN  ='*,I6) 


FIGURE  1-1 .  ERROR  CHECK  - 
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STOP 

END 


FIGURE  1-1.  ERROR  CHECK  - 
OS29/N241D/CDEP /PROGRAMS/ERR, CHEK  (CONT'D) 


100******  0S29/N241D/CDEP/PR0GRAM3/REDTAB 
1 10* 

120**  THE  PRIMARY  INPUT  FILE  FOR  THIS  PROGRAM  IS  ON  UNIT  01. 

130**  THIS  IS  THE  "CO"  FILE  FROM  CDEP,  SORTED  WQRKCENTER  BY  JCN 
140**  BY  START-TIME.  STATISTICS  ARE  ACCUMULATED  BY  W/C,  AND,  TO 
150**  SOME  EXTENT,  FOR  EACH  JCN  WITHIN  A  W/C.  W/C  STATISTICS  ARE 
160**  WRITTEN  OUT  ON  UNITS  8  AND  9;  (OPTIONAL)  JCN  STATISTICS  FOR 
170**  CONSTRUCTING  HISTOGRAMS  CAN  BE  WRITTEN  TO  UNIT  7.  THE  DATA  ON 
ISO**  UNIT  9  (BREAK  RATES,  CREWS-  SERVICE  RATES,  FOR  EACH  W/C)  IS 
190**  SUBSEQUENTLY  USED  AS  AN  INPUT  TO  THE  SORTIE  VENERATION  MODEL  ( SGM ) 
200**  FOLLOWING  ARE  DESCRIPTIONS  OF  SOME  OF  THE  VARIABLES. 

210** 

220**  KOUNTHXT  -  NO.  OF  *ASk3  FOR  THIS  JCN 
230**  STARTONE  -  EARL I El .  START  ^IME  FOR  THIS  JCN 
240**  IDLE  -  IDLE  T1  c  F .ft  THIS  JCN 
250**  STOPLAST  -  LAST  STOP  TI>£  FOR  THIS  JCN 
260** 

270**  NUMJCN  -  NO.  OF  -JCN'S  IN  THIS  W/C 
280**  KTOTHIT  -  NO.  OF  TASKS  FOR  THIS  W/C 
290**  TOT IDLE  -  IDLE  TIME  FOR  THIS  W/C 

300**  TOTCLOCK  -  CUM.  CLOCK  TIME  FOR  ALL  JON'S  IN  THIS 'W/C 
3 1 0** 

320  D I MENS I ON  MEN ( 25 ) , CREWS ( 25 ) , .PBREAK ( 25 ) , SRATE ( 25 ) , CLOCK ( 25 ) , 

321  &STDEV  <  25 ) 

325  REAL  MEANBRK 

330  CHARACTER  AFSC*5(30) 

340  CHARACTER  -JCN*7, 0LDJCN*7, WUC*3 

350  REAL  IDLE 

360  DATA  KOUNTHXT /O/ , IN/O/ , IDLE/O. 0/ , STOPLAST/O. 0/ 

370  LOG I CAL  NOMORE / . F . / , H I STO / . F . / 

380* 

390*  *READ  AND  STORE  FILES  OF  AFSC'S  AND  MEN  PER  AFSC 
400  REWIND  02 

410  DO  20  1=1,50 

420  READ  (03,13, END=22 )  MEN ( I ) 

430  13  FORMAT (V) 

440  READ  (02,15, END=22 )  AFSC ( I ) 

450  15  FORMAT  <2X,A5) 

460  20  CONTINUE 

470  22  MAX AFSC  =  1-1 

480  CALL  FCLOSE ( 2 ) 

490  CALL  FCLOSE (3) 

491  WRITE  (6,13)  MEN 
500* 

5 1 0  READ  (05,13)  NSORT I ES 

520  PRINT  , 'NUMBER  OF  SORTIES  =',NSORTI£S 

530  RECIPN  =  1. /FLOAT (NSORTIES) 

540  READ  (5,13, END=23 )  H I STO 

550  23  REWIND  01 

560  WRITE  (8,24) 

570  24  FORMAT ( ' 1 '//'  W/C  AFSC  AVG  IDLE  AVG  TASKS  MAN-HR' . 
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580* 

590  25  READ  (01,27, END=75 )  JCN , WUC , I START , I STOP , KWC , KREWS 

600  IN  =  IN+1 

610  27  FORMAT  ( 1 X, A7, 8X, AS, 3X , 16, 16, 4X, 12, II ) 

620* 

630*  *CHANGE  TIMES  FROM  DAYS  TO  HOUR* 

640  START  =  FLOAT ( I START)  *  .024 

650  FINISH  =  FLOAT ( I STOP )  *  .024 

660  IF  (KWC  .NE.  KOLDWC)  GO  TO  50 

670  IF  (JCN-  .NE.  OLD  JCN)  GO  TO  50 

680* 

690*  PROCESS  A  RECORD  FOR  CURRENT  W/C 

700  30  KOUNTHIT  =  KOUNTHIT+1 

710  IF  (KOUNTHIT  .GT.  1)  GO  TO  35 

720  STARTONE  =  START 

730  GO  TO  40 

740  35  IF  (START  .GT.  STOPLAST)  IDLE  =  IDLE  +  START-STOPLAST 

750  40  CONTINUE 

760  IF  (FINISH  , GT.  STOPLAST)  STOPLAST  *  FINISH 

770  .  TIMESUM  =■  TIMESUM  +  (FINISH-START) 

730  CREWSUM  =  CREWSUM  +  ( FINISH-START )*KREWS 

790  GO  TO  25 

800* 

310*  PERFORM  END-OF-JCN  PROCESSING 

820  50  CONTINUE 

830  OLDJCN  =  JCN 

340  IF  (KOUNTHIT  .EG.  0)  GO  TO  70 

850  NUMJCN  =  NUMJCN  +  1 

860  CLOCKJCN  -  STOPLAST  -  STARTONE 

870  IF  (HISTO)  WRITE  (7,55)  KOLDWC, NUMJCN, KOUNTHIT, IDLE, CLOCKJCN 

880  55  FORMAT  (3I3,2F10.4) 

890  KTOTHIT  =  KTOTHIT  -r  KOUNTHIT 

900  TOTIDLE  =  TOTIDLE  +  IDLE 

910  TOTCLOCK  =  TGTCLOCK  +  CLOCKJCN 

915  CL  0CKSQ=CL0CKSQ+CL0CKJCN**2 

920  IDLE  =  0.0 

930  STOPLAST  =  0.0 

940  KOUNTHIT  =  0 

950  IF  (KWC  .EG.  KOLDWC)  GO  TO  30 

960* 

970*  *PERFORM  END-OF-W/C  PROCESSING 

980  60  CONTINUE 

990  REC I P JCN  =  1. /FLOAT (NUMJCN) 

1000  CREWS (KOLDWC)  =  MEN (KOLDWC)  *  TIMESUM  /  CREWSUM 

1010  CLOCK (KOLDWC)  =  TOTCLOCK  *  REC IP JCN 

1015  STDEV ( KOLDWC ) = ( CLOCKSQ*REC I P JCN-CLOCK ( KOLDWC ) **2 ) **0 . 5 

1020  PBREAK ( KOLDWC )  =  1.  -  ( ( NSORTIES-1 . ) *RECIPN ) **NUMJCN 

1030  AVGIDLE  =  TOTIDLE  *  REC IP JCN 

1040  AVGHITS  =  FLOAT (KTOTHIT)  *  RECIPJCN 

1050  RMANHR  =  CREWSUM  /  FLOAT ( KTOTHIT) 

1060  WRITE  (8*65)  KOLDWC, AFSC( KOLDWC ), AVGIDLE, AVGHITS, RMANHR 

1070  65  FORMAT  ( 16, 5X» A5, 3F12. 4 ) 

1080  IF  (NOMORE)  GO  TO  80 
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1090 

70 

CONTINUE 

1100 

TOT IDLE  =0.0 

1110 

TIMESUM  =  0.0 

1120 

CREWSUM  =  0.0 

1130 

TQTCLOCK  =  0.0 

1135 

CLOCKSQaO. 0 

1140 

KTOTHIT  =  0 

1150 

NUMJCN  =  0 

1160 

KOLDWC  =  KWC 

1170 

1130* 

GO  TO  30 

1190 

75 

NOMORE  =  .T. 

1200 

KWC  =  999 

1210 

GO  TO  50 

1220 

1230* 

SO 

PRINT  ,  ' RECORDS  INPUT  =',IN 

1240 

WRITE  (6,35) 

1250 

35 

FORMAT  ('l',///'  W/C  AFSC  PR 

1260 

&  'S. RATE', 4X, 'MEN', 4X, 'CREWS 

1270 

BREAK  =  1.0 

1230 

DO  90  J=1 , MAXAFSC 

1290 

BREAK  =  BREAK  *  ( 1 . -PBREAK ( J ) ) 

1300 

SRATE(J)  =0.0 

1310 

IF  (CLOCK (J)  .GT.  0.)  SRATE(J) 

1320 

WRITE  <6, 87)  J , AFSC ( J ) , PBREAK ( J ) 

2  130 


1330 
1340 
1360 
1370 
1330 
1390 
1400* 
141 0** 
1420** 
1430** 
1440* 

1441 

1442 

1443 
1445 
1447 
1450 
1460 
1465 
1470 
1430 
1490* 
1500** 
1510** 
1520* 
1530 
1540 
1550 


o7 

38 

90 


98 


%>.  MEN  ( J ) ,  CREWS  <  .J  >  ,  STDEV  <  J ) 

FORMAT  (I5,4X,A5,3F11.4, I6,F10.2,F10.4) 

FORMAT  ( F10. 4, F10. 2, F10. 4) 

CONTINUE 

WRITE  ( 6 , 98 >  1 . -BREAK 

FORMAT  (//'  THE  OVERALL  BREAK  RATE  IS' , F7. 4, /' 1 ' > 

COMPUTE  EXPECTED  NUMBER  OF  JOBS  PER  SORTIE  AND  THE  PROBABILITY 
OF  ONE,  TWO,  AND  GREATER  THAN  TWO  JOBS  ON  AN  A/C  FOLLOWING  A 
SORTIE. 

WRITE  (6,130) 

FORMAT  ('l',///-'  AFSC  PR  C  BREAK  3 

■!< ' NUM .  CREWS  SVC.  RATE' ) 

DO  200  1=1, MAX AFSC 

IF  < PBREAK ( I ).LT. 0.0001)  GO  TO  195 

PN0BREAK=1 . -PBREAK ( I ) 

MEANBRK=-ALOG ( PNOBREAK ) 

BRKONE=MEANBRK*PNOBREAK 
BRKTWO* ( MEANBRK**2 ) *PN0BREAK/2. 

BRKGRTR-PBREAK ( I ) -BRKONE-BRKTWO 

COMPUTE  THE  CONDITIONAL  PROBABILITY  OF  ONE, TWO,  OR  GREATER 
THAN  TWO  JOBS,  GIVEN  THAT  THE  AIRCRAFT  BROKE. 

SUMBRK=BRKOWE+BRKTWO+BRKGRTR 
BRKONE=BRKONE/ SUMBRK 
BRKTWO=BRKTWO/SUMBRK 
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1 560  BRKGRTR=*BRKGRTR/SUMBRK 

1570* 

1580**  CALCULATE  THE  EXPECTED  SERVICE  TIME  Sc  SERVICE  RATE.  .  THE  FIRST 
1590**  Sc  SECOND  ORDER  STATISTICS  ARE  DETERMINED  BECAUSE  WE  ALLOW  UP 

1600**  TO  THREEE  -JOBS  TO  BREAK  INTO  THE  SAME  WQRKCENTER  FOLLOWING 

1610**  A  SORTIE.  THE  SERVICE  DISCIPLINE  IS  TO  ALLOW  TWO  JOBS  TO  BE 

1620**  WORKED  ON  SIMULTANEOUSLY  (EACH  USING  A  FULL  CREW)  AND  FOR  THE 

1630**  SERVER  WHICH  FINISHES  FIRST  (ORDRONE)  TO  IMMEDIATELY  BEGIN 
1640**  WORK  ON  JOB  3.' 

1650* 

1 660  ORDRONE=CLOCK < I ) *0 . 5 

1 670  ORDRT W0= 1 . 5*CL0CK ( I ) 

1 6S0  EXPSVC=BRKONE*CLQCK ( I ) +BRKTWO*ORDRTWO+BRKGRTR* <  ORDRONE+ 

1690  ScORDRTWO ) 

1700  SRATE( I  )  =  1 . /EX PS VC 

1710* 

1720**  DETERMINE  THE  EXPECTED  NUMBER  OF  MEN  WORKING  IN  THE  WORKCENTER 
1730**  AT  A  RANDOM  POINT  IN  TIME.  THIS  NUMBER  DETERMINES  THE 
1740**  EXPECTED  NUMBER  OF  CREWS. 

1750* 

1751  PRINT  ,  "NMEN<  %  I,  '  )=•' ,MEN<  I ) 

1 760  A VGCREW=FLO AT ( MEN ( I ) ) / CREWS ( I ) 

1761  PRINT  ,  'AVGCREW=-S  AVGCREW 

1 770  EXPMEN= ( BRKONE*CLOCK ( I ) *A VGCREW 

1 780  Sc+BRKTWO*  ( AVGCREW*  ( ORDRONE+ORDRTWO )  ) 

1 790  Sc+BRKGRTR*  ( AVGCREW*  ( QRDRQNE+2.  *ORDRTWO  >  ) )  /EXPSVC 

1800  CREWS  < I ) =FLOAT ( MEN  < I ) ) /EXPMEN 

1810  195  WRITE  (9,88)  PBREAK ( I ) , CREWS ( I ) , SRATE ( I ) 

1811  WRITE  (6,197)  AFSC ( I ) , PBREAK ( I ) , CREWS ( I ) , SRATE ( I ) 

1812  197  FORMAT  (2X, A5,2X,3< 10X,F10.4) ) 

1820  200  CONTINUE 

1830  STOP 

1840  END 

* 


FIGURE  1-2.  REDUCTION  AND  TABULATION  - 
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APPENDIX  J.  NOTIONAL  BASE  PROGRAM  LISTINGS 


A.  JG05A/CDEP/ALL . NOT 

Function.  Calculates  notional  base  manpower  inputs  to  the 
Sortie  Generation  Model.  Each  base's  data,  break  rate,  service 
rate  and  number  of  servers  is  weighted  to  compute  notional  base  data. 
Sorties  and  number  of  jobs  are  used  to  weight  base  break  rates, 
service  rates,  and  number  of  servers  respectively.  The  difference 
in  AFSC's  among  bases  is  taken  into  account. 

Listing.  Figure  J-l. 


J-l 


1 000* 
1010* 
1020* 
1030* 
1040* 
1050* 
1060* 
1070* 
1 030* 
1090* 
1100* 
1110* 
1120* 
1130* 
1140* 
1150* 
1153 
1155 
1 160 
1161 
1170* 
11  SO 
1182 
1134 
1186 
1200* 
1210 
1211 
1220* 
1230 
1235 
1240* 
1250* 
1260* 
1270* 
1280* 
1290 
1300 
1310 
1315 
1320 
1330 
1340 
1345 
1350 
1355 
1360 
1370 
1380 
1390 
1 400 


*  PURPOSE  OF  THIS  PROGRAM  IS  TO  CALCULATE  THE  NOTIONAL  BASE 

*  MANPOWER  INPUTS  TO  THE  SORTIE  GENERATION  MODEL.  EACH  BASE'S 

*  DATA,  BREAK  RATE,  SERVICE  RATE,  AND  NUMBER  OF  SERVERS,  ARE 

*  WEIGHTED  TO  COMPUTE  NOTIONAL  BASE  DATA.  SORTIES  AND 

*  THE  NUMBER  OF  JOBS  ARE  USED  TO  WEIGHT  THE  BASE  BREAK  RATES, 

*  SERVICE  RATES,  AND  NUMBERS  OF  SERVERS,  RESPECTIVELY. 


*  ALL  DATA  FOR  ALL  BASES  ARE  READ  SIMULTANEOUSLY.  BY  READING 

*  THE  AFSC  S  WE  ARE  ABLE  TO  TELL  BASES  APART.  DATA  ARE  PLACED  IN 

*  THEIR  PROPER  POSITION  BY  USING  AN  INDEX  FILE  TO  ACCOUNT  FOR  ALL 

*  BASES  NOT  HAVING  THE  SAME  AFSC  S.  BASES  ARE  READ  ONE  MD  AT  A 

*  TIME  WITH  A  COUNTER  TO  INDICATE  A  MD  CHANGE. 


PARAMETER  MAXAFSC=20, MAXBAS£=33> NUMM0S=5 

PARAMETER  NENTRY=MAXAFSC*MAXBASE, NOTBASE=MAXAFSC*NUMMDS 

INTEGER  TYPEAC  < NUMMBS ) , NUMAFSC <  NUMMDS ) , 

ORDRAFSC ( 30 , NUMMDS ) 


REAL  BRKRTE ( MAX AFSC, MAXBASE ) , NQTBRK ( MAX AFSC, NUMMDS ) , 
SVCRTE (MAX AFSC, MAXBASE ) , NOTSVC(MAXAFSC, NUMMDS) , 
CRWSI ZE ( MAXAFSC, MAXBASE) , NOTCRW( MAX AFSC, NUMMDS) , 
SORTIES ( MAXBASE ) , NBREAK ( MAXBASE ) 

CHARACTER  BASET YPE*37 ( NUMMDS ) , MSTRAFSC*5  < 30 , NUMMDS ) , 
t  AFSCN£W*5, AFSC0LD*5 


COMMON  / L I STS /BRKRTE , CRWSI ZE, SVCRTE, MSTRAFSC, ORDRAFSC, NUMMD , 
& I TYPEAC 


* 


St 


INITIALIZATION 


DATA  TYPEAC/ 15, 23, 25, 29, 33/ 

NUMAFSC/ 18, 15, 16, 19, 15/, 

ORDRAFSC/ 1,2, 3, 4, 5, 6, 7, 8, 9, 10,11,12, 13, 14, 15, 16, 17, 13, 
8,5,2,  4,  <:•,  11,  15,7, 1, 8*0 , 

1,2, 3, 4, 5, 6, 7,8,9, 10, 11, 12, 13, 14, 15, 12, 14*0, 

1,2, 3, 4,  5»o»  / ,  8,  9,  10,  11,  1 2 ,  13, 14, 15,  1  c* ,  13, 1 8*0 , 
1,2, 3, 4, 3, 6, 7, 3, 9, 10, 11, 12, 13, 14, 15, 16, 17, 13, 19, 
16, 10*0, 

1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13,14, 15, 

4,5,6, 10, 11,12,9*0/ 

DATA  BRKRTE/NENTRY*0. 0/ , NQTBRK /N0TBASE*0. 0/ , 

SVCRTE/NENTRY*0. 0/, N0TSVC/N0TBASE*0. 0/ , 

CRWSI ZE/NENTRY*0. 0/, N0TCRW/N0TBASE*0. 0/ 

DATA  SORTIES/7639. , 6156. , 6623. , 2891 . , 8598. , 4052. , 6145. , 

3493. ,5945. ,4202. , 1637. ,2273. , 1627. ,4841. ,1716. , 
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1410 
1420 
1430 
1440 
1450 
1460 
1470 
1430 
1490 
1500* 
1510 
1520 
1530 
1540 
1543 
1545 
1550 
1560 
1570 
1530 
1590 
1600 
1610 
1620 
1630 
1640 
1 650 
1660 
1663 
1670 
1630 
1690 
1700 
1705 
1710* 
1720*  * 

1730* 
1740 
1750 
1760 
1770  5 
1730 
1300 
1310 
1320  10 
1330 
1340 
1350 

1360  30 

1361 

1362 

1363 

1364 


% 


7925. .  4803. ,  7217. , 6003. *  5001. *  7562. *  1337. , 1533. 

6662. .  2507. , 

7359. . 3996. . 1602. .3916. , 

3323. .  3763. . 4063. . 3369, / 


DATA  BASETYPE/'l 

Sc  ' 1 

Sc  '1 

Sc  '1 

8c  '  1 


F4  NOTIONAL  BASE', 
FI 5  NOTIONAL  BASE', 
F16  NOTIONAL  BASE', 
A10  NOTIONAL  BASE', 
Fill  NOTIONAL  BASE'/ 


DATA 


MSTRAFSC/  ' 321X2-',  '322X2",  '325X0',  '323X0',  '323X3', 
'323X4', '404R1 ' , '423E2', '423E3', '423X0', 
'423X1',  '423X4', '426X2', '427R0',  '427R5', 


'431E1', '431X1', '462X0', 
' 322R2 ' , ' 32SR0 ' , ' 32SR4 ' , 
'404X1', '321R2',3*' 
'326X6' , '326X7' , '326X3' , 
'423X0', '423X1', '423X4', 
'427R0' , '427X5' , '431E1 ' , 


'423X2', '328R3', 
'423R1 ', '427X5', 

' 423E2 ' ? ' 423E3 ' , 
'426R2', '426X2', 
'431X1', '462X0', 


' 427R5 ' , 1 4* ' 


Sc 

Sc 

& 


'326X6', '326X7', '326X8' , '404R1', '423E2', 
'423E3', '423X0', '423X1 ', '423X4',  '426R2', 
' 426X2 ' , ' 427R0 ' , ' 427R5 ' , ' 43 1 El ' , ' 431 X 1 ' , 


Sc 


Sc 

& 

Sc 


'462X0', '427X5', 13*' 

'321X2', '322R2', '325X0', '325X1',  '32SR3', 
'323X0', '323X1', '404R1', '423E2', '423E3', 
'423X0', '423X1', '423X4' , '426X2' , '427R0', 
'427RS', '431E1', '431X1 ','462X0', '427X5', 
10*' 

'326X6', '326X7', '326X3', '404R1', '423E2', 
'423E3', '423X0', '423X1', '423X4', '426X2', 
'427R0', '427X5', '431E1', '431X1 ', '462X0', 
'404X1', '423X2', '423X3', '426R2', '427X0', 
'427R5', 9*'  '/ 


END  INITIALIZATION 


NUMMD=1 
ITYPEAC=1 
AFSCQLD=' 00000' 

READ  ( 1 , i 0 , END=30 )  AFSCNEW 

READ  ( 2 , 230, END=30 )  RTEBRK, SIZECRW, RTESVC 

IF  ( AFSCNEW. GT.AFSCOLD)  CALL  INSRT ( AFSCNEW, AFSCOLD, RTEBRK, 

:  SIZECRW, RTESVC) 

FORMAT  <2X»  A5) 

I F  ( AFSCNEW . LT . AFSCOLD  >  CALL  NEWBASE ( AFSCNEW , AFSCOLD , RTEBRK , 
t  S I ZECRW , RTESVC , TYPE AC ) 

00  TO  5 
CONTINUE 

WRITE  (6,27)  <  (BRKRTEd,  J),  J=l, 3),  1=1,20) 

WRITE  <6,27)  < (BRKRTEt I, J) , J=9, 16), 1=1,20) 

WRITE  (6,27)  < (BRKRTEC I, J) * J=17, 24) , 1=1 , 20) 

WRITE  (6,27)  <  (BRKRTEd,  J) ,  J=25, MAXBASE) ,  1=1,20) 

FIGURE  J-l.  NOTIONAL  BASE  -  JG05A/CDEP/ALL.N0T  (CONT^) 
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1365  27 
1370* 

1 830*  * 

1 390*  * 

1900* 
1905 
1910 
1 920* 

1 930*  * 

1940*  * 

1950* 
1970 
1 980 
1990 
2000 
2010 
2020 
2030 
2040 
2050  35 
2060  40 
2070 
2030* 
2090*  * 

2100*  * 
2110*  * 
2120* 
2130 
2140 
2150 
2160  50 
2170* 


FORMAT  ( / //,3<3X,F10.4) ) 

OUTER  LOOP  IS  USED  TO  CONTROL  NOTIONAL  BASE  CALCULATIONS 
FOR  EACH  MD  TYPE. 


IFIRST=1 

DO  200  NUMN0T=1 *  NUMMDS 

COMPUTE  WEIGHTED  MEAN  BREAK  RATE.  ZEROES  ARE  EXCLUDED 
FROM  THE  COMPUTATION. 

ILAST =TYPEAC ( NUMNOT ) 

DO  100  I AFSC=1,NUMAFS£< NUMNOT) 

SUMSORT-O. 

3UMBRK=0. 

DO  40  MDTYPE=IFIRST, ILAST 

IF  ( BRKRTE < I AFSC, MDTYPE) . LE. 0.0001)  GO  TO  33 
SUMSORT  =  SUMSORT  +  SORT IES < MDTYPE  >  **2 

SUMBRK  =  SUMBRK  +  ( BRKRTE  <  I AFSC ,  MDTYPE )  *SORT  I ES  <  MDTYPE  >  .■  **2 

CONTINUE 

CONTINUE 

NOTBRK ( I AFSC, NUMNOT ) =SQRT ( SUMBRK/SUMSORT ) 

COMPUTE  THE  NUMBER  OF  BREAKS.  THIS  NUMBER  IS  USED  AS  THE 
WEIGHTING  FACTOR  FOR  THE  NOTIONAL 
SERVICE  RATE  AND  CREW  SIZE  CALCULATIONS. 

DO  50  MDTYPE=IFIRST, ILAST 

NSREAK <  MDTYPE  >  =ALOG  < 1 . -BRKRTE < I AFSC, MDTYPE ) ) / ALOG <1.-1./ 

&  SORTIES < MDTYPE ) ) 

CONTINUE 


2130*  * 

2190* 
2200 
2210 
2220 
2230 
2240 
2250  60 
2260 
2270* 
2230*  * 

2290* 


COMPUTE  WEIGHTED  NUMBER  OF  SERVERS. 

SUMCREW=0. 

SUMBRK=0. 

DO  60  MDTYPE=IFIRST» ILAST 
3  U  M  3  R  K = S  U  MBRK+NBREAK <  MDTYPE ) **2 

SUMCREW=SUMCREW+ <  NBREAK < MDTYPE ) *CRWS I ZE  < I AFSC , MDT t PE ) ) **2 
CONTINUE 

NOTCRW  <  I  AFSC,  NUMNOT )  =SQRT  <  SUMCREW/SUfIBRK  > 

COMPUTE  WEIGHTED  SERVICE  RATE. 


2310 

SUMRATE=0. 

2320 

DO  70  MDTYPE= I FIRST, ILAST 

2330 

I F  <  SVCRTE  < I AFSC, MDTYPE ) . LE. 

2340 

SUMRATE=SUMRATE-r  <  NBREAK  (  MDTYi 

2350 

65 

CONTINUE 

2360 

70 

CONTINUE 

2370 

RATE=SQRT <  SUMRATE/ SUMBRK ) 

2330 

NOTSVC < I AFSC, NUMNOT >=1 . /RATE 

2390 

100 

CONTINUE 

FIGURE  J-l.  NOTIONAL  BASE  -  JG05A/CDEP/ALL.N0T  (CONT'D) 
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2400  IFIRST=TYPEAC ( NUMNOT ) +1 

2410  200  CONTINUE 
2420  DO  400  1=1 ,5 

2430  WRITE  (6.210)  BASETYPE ( I ) 

2440  210  FORMAT  (A37) 

2450  WRITE  (6.215) 

2460  215  FORMAT  (///'  AFSC  PR  I BREAK 3 

2470  St^NUM.  CREWS  SVC.  RATE') 

2480  DO  300  I AFSC=1 , NUMAFSC ( I ) 

2490  IF  ( ORDRAFSC ( I AFSC. I ) » NE. 0 )  WRITE  (1+6,220)  MSTRAFSC ( ORDRAFSC < 

2500  SelfiFSC,  I),  I) 

2510  220  FORMAT  (2X.A5) 

2520  IF  ( ORDRAFSC ( I AFSC, I ) . NE. 0 )  WRITE  (1+11,230) 

2530  St  NOTBRK  <  ORDRAFSC  ( I  AFSC ,  I ) ,  I ) , 

2540  St  NGTCRW<  ORDRAFSC  (I  AFSC,  I),  I), 

2550  St  NOTSVC(  ORDRAFSC  (I  AFSC,  I),  I) 

2560  230  FORMAT  (F10.4,F10.2,F10.4) 

2570  IF  (ORDRAFSC (I AFSC, I >.NE.O>  WRITE  (6,250) 

2580  S<  MSTRAFSC  ( ORDRAFSC  ( I  AFSC ,  I ) ,  I ) , 

2590  Sc  NOTBRK  ( ORDRAFSC  ( I  AFSC ,  I ) ,  I ) , 

2600  Sc  NOTCRW  ( ORDRAFSC  ( I  AFSC ,  I ) ,  I ) , 

2610  •?<  ‘  NOTSVC  ( ORDRAFSC  ( I  AFSC ,  I ) ,  I ) 

2620250  FORMAT  (2X, A5,3X,3( 10X.F10.4) ) 

2630  300  CONTINUE 
2640  400  CONTINUE 
2650  STOP 

2660  END 

2670* 

2680* 

2690*  *  SUBROUTINE  " INSRT"  PLACES  THE  BREAK  RATE,  CREW  SIZE,  AND 

2700*  *  SERVICE  RATE  IN  THEIR  PROPER  POSITION.  INSERTION  INTO  THE 

2710*  *  DATA  ARRAYS  TAKES  INTO  ACCOUNT  THE  DIFFERENCE  IN  AFSC  S  AT 
2720*  *  EACH  BASE?  THAT  IS,  ALL  BASES  DO  NOT  HAVE  THE  SAME  AFSC  SET. 
2730* 

2740*- 

2750  SUBROUT I NE  I NSRT ( AFSCNEW , AFSCOLD , RTEBRK , S I ZECRW , RTESVC ) 

2760* 

2770* 

2775  PARAMETER  MAXAFSC=20, MAX5ASE=33,NUMMDS=5 

2730  INTEGER  ORDRAFSC <30, 5) 

2790  CHARACTER  AFSCNEW*5, AFSC0LD*5,MSTRAFSC*5(30,NUMMDS) 

2795  REAL  BRKRTE ( MAX AFSC, MAXBASE ) , CRWSI ZE ( MAX AFSC, MAX3ASE ) , 

2796  St  SVCRTE(  MAX  AFSC,  MAXBASE) 

2800  COMMON  / LISTS/BRKRTE, CRWSIZE, SVCR7E, 

2805  StMSTRAFSC,  ORDRAFSC,  NUMMD,  I  TYPE  AC 

2820* 

2330*  *  FIND  "NEW AFSC"  IN  MASTER  AFSC  LIST  AND  INSERT  ACCORDING 

2340*  *  TO  THE  POINTER  IN  THE  ORDER  AFSC  LIST. 

2350* 

2S60  DO  20  1=1,30 

2370  I r  ( AFSCNEW. EQ. MSTRAFSC ( I, NUMMD ) )  GO  TO  30 


2830  20  CONTINUE 

2890  PRINT  , -'COULD  NOT  FIND  AFSC  ' ,  AFSCNEW,  •'  1=^ ,  I ,  'NUMMD=' , 

FIGURE  J-l.  NOTIONAL  BASE  -  JG05A/CDEP/ALL.N0T  (CONT’D) 
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2891  &NUMMD 
2900  RETURN 

2910  30  CONTINUE 

2920  BRKRTE i ORDRAFSC < 1 *  NUMMD ) * I TYPEAC ) =RTEBRK 

2930  CRWS I ZE  <  ORDRAFSC ( I , NUMMD ) * I TYPEAC ) =S I ZECRW 

2940  SVCRTE  C  ORDRAFSC ( I * NUMMD ) * I  TYPEAC ) =RTESVC 

2950  AFSCOLD=AFSCNEW 

2960  RETURN 

2970  END 

2930* 

2990* 

3000*  *  SUBROUTINE  "NEWBASE"  DETERMINES  WHEN  THE  BASE/MD  TYPE  CHANGE. 

3010*  *  THE  APPROPRIATE  COUNTERS*  ITYPEAC  AND  NUMMD*  RESPECTIVELY*  ARE 

3020*  *  INCREASED.  THE  "INSRT"  SUBROUTINE  IS  THEN  CALLED. 

3030* 

3040* 

3050  SUBROUTINE  NEWBASE (AFSCNEW* AFSCOLD* RTE3RK, SI ZECRW* 

3060  A.RTESVC*  TYPEAC) 

3070* 

3080* 

3085  PARAMETER  MAXAFSC=20*  MAXBASE=33*  NUMMDS=5 

3090  INTEGER  ORDRAFSC  ( 30,  NUMMDS ) ,  TYPEAC  ( NUMMDS ) 

3 1 00  CHARACTER  AFSCNEW*5  *  AFSC0LD*5  *  MSTRAFSC*5  <  30  *  NUMMDS ) 

3110  COMMON  /LISTS/BRKRTE(MAXAFSC*MAXBASE)* 

3111  ScCRWSIZE ( MAX AFSC*  MAXBASE  > , SVCRTE  < MAX AFSC*  MAXBASE ) , 

31 15  &MSTRAF3C, ORDRAFSC*  NUMMD* ITYPEAC 

3130* 

3140*  *  UPDATE  BASE  COUNTER  AND  CHANGE  MD  COUNTER*  IF  NECESSARY. 

3150* 

3160  ITYPEAC=ITYFEAC+1 

3170  IF  <  TYPEAC  ( NUMMD ) .  LT.  ITYPEAC')  NUMMD=NUMMD+1 

3180* 

3190*  *  INSERT  DATA  IN  APPROPRAITE  PLACE. 

3200* 

3210  CALL  INSRT  (AFSCNEW* AFSCOLD* RTEBRK* SI ZECRW* RTESVC) 

3220  RETURN 

3230  END 

* 

FIGURE  J-l.  NOTIONAL  3ASE  -  JGQ5A/CDEP/ALL.N0T  (COST'D) 
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APPENDIX  K 


AN  INTRODUCTION  TO  AIR  FORCE  BASE  MAINTENANCE 
ORGANIZATIONAL  STRUCTURES 


There  are  two  primary  types  of  maintenance  organizational  structures. 
They  are  the  standard  centralized  functional  concept  specified  in  AFM  26-2  and 
described  in  detail  in  AFM  66-1  and  the  Combat  Oriented  Maintenance  Organiza¬ 
tion  (COMO)  described  in  AFR  66-5. 

The  two  maintenance  organizations  differ  in  their  philosophies;  a 
centralized  approach  versus  a  decentralized  approach.  The  standard  mainte¬ 
nance  system  places  most  of  the  maintenance  personnel  in  shops  which  perform 
off-equipment  maintenance.  Personnel  are  dispatched  from  the  shops  to  the 
flight  line  to  perform  on-equipment  maintenance  on  an  as-needed  basis.  This 
contrasts  with  the  COMO  where  some  of  the  shop  personnel  are  stationed  on  the 
flight  line. 

AFM  66-1  describes  the  standard  centralized  functional  concept  of  an 
equipment  maintenance  organization  as  being  organized  as  sections,  branches, 
divisions,  or  squadrons  based  on  the  overall  organizational  structure  and  size 
of  the  function.  Each  function  and  work  center  will  be  manned  consistent  with 
the  requirements  determined  by  workload,  mission,  assignment,  and  other  re¬ 
lated  factors.  Functions  may  be  consolidated  within  major  functional  areas 
when  the  number  of  assigned  personnel  does  not  warrant  a  separate  organiza¬ 
tional  element.  Only  functions  required  by  unit  mission  or  equipment  are 
authorized.  The  deputy  commander  for  maintenance  function  for  each  aircraft, 
ICBM,  or  CEM  maintenance  organization  will  be  assigned  to  the  organizational 
level  having  functional  control  of  all  assigned  maintenance  personnel  and 
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equipment.  The  deputy  commander  for  maintenance  may  also  be  designated  as  the 
chief  of  maintenance  or  as  a  maintenance  squadron  commander,  depending  on  the 
organizational  alignment. 

The  standard  maintenance  organization  table  is  shown  in  Figrre  K-l.  An 
alternative  form  of  standard  base  maintenance  organization  is  the  consolidated 
maintenance  organization.  The  consolidated  maintenance  structure  is  shown  in 
Figure  K-2. 

Under  the  COMO  concept,  personnel  are  arranged  into  off-  and  on-aircraft 
production  groups.  The  Aircraft  Generation  Squadron  (AGS)  is  primarily  con¬ 
cerned  with  on-equipment  maintenance  and  is  arranged  into  branches  which  are 
largely  self-sufficient.  The  Component  Repair  Squadron  (CRS)  and  Equipment 
Maintenance  Squadron  (EMS)  are  divided  into  shops  to  perform  those  tasks 
mostly  concerned  with  off-equipment  or  extensive  on-equipment  work.  The  COMO 
structure  is  shown  in  Figure  K-3  and  is  taken  from  AFR  66-5. 

The  reader  who  needs  additional  information  on  the  maintenance  structures 
should  consult  ATM  66-1  and  AFR  66-5. 


FIGURE  K-2 

CONSOLIDATED  BASE  MAINTENANCE  ORGANIZATION 
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(1)  Functions  organized  as  sections,  branches,  or  divisions  based  on  overall 
organizational  structure  and  size  of  function. 

(2)  Production  analysis,  training  management,  administration,  and  programs- 
mobility  may  each  be  organized  directly  under  the  deputy  commander  for  mainte¬ 
nance,  or  they  may  be  consolidated  under  one  or  more  intermediate 
supervisor(s) . 

(3)  Mobility  authorized  only  for  units  having  mobility  requirement.  When 
the  wing  logistics  plans  function  is  aligned  under  the  deputy  commander  for 
maintenance,  this  element  will  be  known  as  the  logistics  plans,  programs  and 
mobility  division,  and  will  have  total  functional  responsibility. 

(4)  Includes  the  debriefing  function. 

(5)  Organizational  maintenance  will  be  organized  as  a  squadron,  division, 
branch,  or  section  depending  upon  size  of  the  activity  for  aircraft  equipped 
units. 

(6)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(7)  Alert  Force  authorized  only  for  units  having  an  alert  requirement. 

(8)  Base  flight  function  authorized  only  to  units  assigned  base  flight 
aircraft.  When  base  flight  aircraft  is  the  mission  of  the  unit,  flightline 
and  inspection  functions  may  be  utilized  instead  of  base  flight. 

(9)  Inspection  and  flightline  functions  may  be  combined.  A  separate  flight¬ 
line  or  flightline/ inspection  function  is  permitted  for  each  major  aircraft 
type. 

(10)  When  authorized,  nonpowered  AGE  may  be  realigned  under  the  AGE  branch  of 
field  maintenance. 

(11)  Field  maintenance  will  be  organized  as  a  squadron,  division,  branch,  or 
section  depending  upon  the  size  of  the  activity  for  aircraft  equipped  units. 
Field  maintenance  may  include  an  avionics  and/or  a  munitions  section  or  branch 
in  units  possessing  insufficient  personnel  to  form  a  separate  squadron. 

(12)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(13)  Command  option  to  align  electrical  systems  under  avionics  maintenance. 

(14)  Includes  SOAP. 

(15)  When  authorized. 

(16)  When  workload  warrants. 


(17)  Munitions  maintenance  will  be  organized  as  a  squadron,  division,  branch, 
or  section  depending  upon  size  of  the  activity. 

(18)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(19)  When  authorized. 

(20)  Only  authorized  for  independent  munitions  maintenance  units. 

(21)  Authorized  for  SRAM  equipped  units. 

(22)  SRAM  maintenance  is  organized  as  a  component  of  munitions  maintenance 
and  storage  in  F-lll  units. 

(23)  For  units  maintaining  AQM  missiles. 

(24)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(25)  When  authorized. 

(26)  Integrated  guidance  and  control  radar  functions  may  be  combined  with 
avionics  systems  depending  upon  the  size  of  the  activity. 

(27)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(28)  Avionics  flightline  maintenance  branch  responsible  for  on-equipment 
maintenance. 

(29)  Avionics  shop  maintenance  branch  responsible  for  off-equipment  mainte¬ 
nance. 

(30)  When  authorized  for  units  supporting  other  type  aircraft  such  as  KC-135. 
These  functions  may  be  combined  depending  upon  the  size  of  the  activity. 

(31)  When  authorized. 

(32)  Avionics  maintenance  will  be  organized  as  a  squadron,  division,  branch, 
or  section  depending  upon  the  size  of  the  activity  for  aircraft  equipped 
units. 

(33)  Mobility  authorized  only  for  units  having  a  mobility  requirement. 

(34)  Analysis  authorized  only  for  selected  weapon  systems  based  on  com¬ 
plexity. 

(35)  An  avionics  test  equipment  function  may  be  authorized  to  maintain, 
control,  and  issue  common  test  equipment. 

(36)  Automatic  flight  control-instrument  branch  or  mission  systems  branch  may 
be  combined  with  the  communication-navigation  branch  when  separate  branch  is 
not  justified. 
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(37)  Command  option  to  align  electrical  systems  under  field  maintenance. 

(38)  Authorized  only  for  units  having  maintenance  requirements  for  peculiar 
avionics,  AGE,  and  test  equipment. 

(39)  When  authorized. 

(40)  When  authorized  at  techrical  centers.  This  function  can  be  divided  into 
separate  activities  to  align  with  the  functional  responsibilities  at  technical 
training  centers.  Training  equipment  assigned  to  avionics  will  be  electronic 
oriented  and  may  include  missile  equipment,  communications -electronic- 
meteorlogical  training  equipment,  photographic  equipment  maintenance,  and 
flight  simulators. 
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